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PRESENTACIÓN 


Un lenguaje de programación como el BASIC se aprende ha- 
ciendo muchos programas que resuelvan distintos tipos de pro- 
blemas. Pero la resolución de un problema con el microordenador 
exige, además del conocimiento del lenguaje BASIC, seguir el 
proceso lógico y desarrollar un cierto esfuerzo de imaginación. 


Ahora bien, en los comienzos no siempre se consigue enfrentar 
dicho desafío con éxito, lo cual puede producir un cierto desá- 
nimo y, en algunos casos, un abandono prematuro del aprendi- 
zaje de la programación. Esto se puede evitar pidiendo orienta- 
ción a una persona que domine la programación, o bien, 
consultando un libro que contenga gran variedad de programas 
resueltos. 


Con esta intención se ha elaborado 300 PROGRAMAS RE- 
SUELTOS: para ayudar a los que se inician en la programación a 
vencer las dificultades que se les vayan presentando. 


Todos los capítulos de este libro, salvo el primero, que contiene 
una breve introducción sobre el microordenador y el lenguaje BA- 
SIC, comprenden tres apartados: 


e En el primero, RESUMEN DE LAS INSTRUCCIONES, se incluye 
un resumen de cada una de las instrucciones que se van a uti- 
lizar por primera vez en los programas del capítulo, acompa- 
ñado de uno o más ejemplos. Éstos ayudan a afianzar la com- 
prensión de cada una de las instrucciones, ya que permiten 
observar su funcionamiento en situaciones concretas. 


e En el segundo apartado, PROGRAMAS RESUELTOS EXPLI- 
CADOS, contiene una serie de programas resueltos con la ex- 
plicación del comportamiento de sus instrucciones. 
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e El tercer apartado, PROGRAMAS RESUELTOS, contiene otra se- 
rie de programas resueltos, pero sin explicación. Esta se ha 
omitido por sobreentender que el mismo lector puede enten- 
derlos apoyándose en las explicaciones del apartado anterior. 


Los enunciados de los ejercicios de este libro coinciden con los 
del primer libro de la serie, BAS/C. Programación. En este sentido, 
300 PROGRAMAS RESUELTOS puede considerarse como un com- 
plemento del primero, en cuanto que refuerza y profundiza su 
vertiente práctica. No obstante, cabe advertir que, aun teniendo 
en cuenta este carácter de complementariedad, ambos libros 
pueden utilizarse en forma independiente. 
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1 Microordenadores 


Lenguaje BASIC 


1. El microordenador 


Observando a simple vista un microordenador se advierte que su aspecto 
externo es similar al de una máquina de escribir. Sus teclados Únicamente se 
diferencian en unas pocas teclas. Sin embargo, ambas máquinas son completa- 
mente diferentes tanto en su constitución como en su funcionamiento. 


Aspecto externo 


de un microordenador. 


En realidad, un microordenador es 
un tipo de ordenador que cumple 
muchas de las funciones realizadas 
por éste y que, gracias a las tecno- 
logías de miniaturización electró- 
nica, ocupa un reducidísimo espa- 
cio. 


e Para poner en funcionamiento el 
microordenador es necesario conec- 
tarlo a la red eléctrica y a un moni- 
tor o televisor. 

Si se conecta a un televisor es nece- 
sario seleccionar el canal 36 de UHF. 


2. Partes de un microordenador 


e El teclado y la pantalla son partes importantes del microordenador, pero lo 
esencial del mismo se encuentra en su interior: es la MEMORIA y el MICRO- 
PROCESADOR. 


MEMORIA 


TECLADO PANTALLA 


MICROPROCESADOR 


En resumen, un microordenador se compone de cuatro partes unidas entre sí: 
la ENTRADA (teclado), la MEMORIA, el MICROPROCESADOR y la SALIDA (pan- 
talla). 


MEMORIA 


ENTRADA SALIDA 


(teclado) (pantalla o impresora) 


MICROPROCESADOR 


El dispositivo de salida en lugar de una pantalla (o monitor) puede ser una im- 
presora. 


e El microprocesador es el «cerebro» del microordenador: controla su funcio- 
namiento, realiza operaciones aritméticas y lógicas, etc. 


e La memoria almacena toda la información que necesita el microordenador 
para funcionar. 


La memoria se puede comparar con un panal con muchas celdillas, llamadas 
posiciones de memoria. 


Al introducir un dato en la memoria es necesario dar un nombre a la posición 
de memoria en la que se guarda dicho dato, pues de lo contrario sería imposi- 
ble encontrarlo posteriormente. 


Una posición de memoria etiquetada con un nombre se denomina variable, ya 
que puede contener datos diferentes (variables) en el curso de la ejecución de 
un programa. 


Posición de memoria 
etiquetada con el nombre A 
(Variable A) 


Posición de memoria 
etiquetada con el nombre B- 
(Variable B) 


La posición de memoria etiquetada con A almacena en este instante el dato 
numérico 6 y la etiquetada con B contiene el dato numérico 83. 


Esto suele indicarse así: 
6 
83 


A 
B 


(El nombre de la variable se escribe a la izquierda y el valor que tiene en un 
determinado instante se escribe a la derecha, separados por el signo igual.) 


3. El programa 


Para que el microordenador realice un proceso hay que indicarle el orden de los 
distintos pasos que tiene que seguir. Este conjunto de órdenes o instrucciones 
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constituye el PROGRAMA de trabajo al cual se ajustará ciegamente el microorde- 
nador. 
Por ejemplo, si el proceso consiste en calcular y escribir en la pantalla el valor de A 
que se obtiene en la expresión 

A=B+15 


para cualquier valor de la variable B introducido por el teclado, el orden de las 
instrucciones podría ser éste: 

1 INTRODUCIR POR EL TECLADO EL VALOR DE B 

2 CALCULAR EL VALOR DE A EN LA EXPRESION A = B + 15 ! 

3 ESCRIBIR O IMPRIMIR EN LA PANTALLA EL VALOR DE A 

4 TERMINAR (FIN) 
Este conjunto de órdenes o instrucciones constituye un ejemplo de PROGRAMA. 


Para obtener el resultado de la suma y su escritura hay que ordenar al microorde- 
nador que ejecute el programa. 


4. El lenguaje que entiende el microordenador: el lenguaje 
BASIC 


e Para que el microordenador entienda el programa anterior debe estar escrito 
de una forma determinada, por ejemplo, así: 


INPUT B 

LETA =B +15 
PRINTA 

END 


El lenguaje en el que están escritas estas últimas instrucciones se llama BASIC, 
palabra que se forma con las iniciales de las palabras de la expresión inglesa 
«Biginner's All-purpose Simbolic Instruction Code» (Código de instrucción sim- 
bólica para principiantes para todos los usos). Este lenguaje consta de una serie 
de palabras inglesas y símbolos gráficos, que deben seguir unas reglas gramati- 
cales estrictas. 
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e Vemos que el programa consta de un conjunto de líneas numeradas, que co- 
rresponden a las órdenes o instrucciones, y cada una de ellas está constituida 
por: 


— una palabra clave que entiende el microordenador (INPUT, LET, PRINT, 
END). 


— variables, como A y B, números y operadores aritméticos (+). 


e Las instrucciones se pueden ordenar con los números 1, 2, 3, ..., pero se acon- 
seja numerarlas de 10 en 10, pues ello permite añadir en cualquier momento 
instrucciones olvidadas, con numeración intermedia. 


Siguiendo esta norma, el programa anterior quedaría así: 


INPUT B 
LETA=B+ 15 
PRINT A 

END 


En algunos microordenadores no es necesario poner la instrucción END; in- 
cluso el microordenador ZX Spectrum no dispone de esta instrucción. 


5. Cómo se almacena un programa en memoria 


Una vez escrito un programa en el papel, se teclea cada instrucción pulsando a 
continuación la tecla [ENTER] (o [RETURN ] o [NEW LINE ], etc., según el mi- 
croordenador). 


En este libro utilizaremos | ENTER 


Cuando se acciona esta tecla la instrucción pasa automáticamente a la memoria. 
Si no se acciona, el microordenador no se da por enterado de la instrucción es- 
crita; es decir, no pasa a la memoria. Por ejemplo, si se teclea 


10 INPUT B 


y no se pulsa la tecla [ ENTER |, la instrucción queda escrita en la pantalla pero 
no pasa a la memoria. En cambio, si se teclea 


10 INPUT B | ENTER 


la instrucción aparece en la pantalla y, además, se almacena en la memoria. 
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Si tecleamos el programa anterior, lo veremos así en la pantalla. (¡NO OLVIDARSE 
DE PULSAR LA TECLA [ ENTER ] DESPUÉS DE CADA INSTRUCCIÓN!) 


INPUT B 
LETA=B+ 15 
PRINTA 

END 


6. Cómo se ejecuta un programa almacenado en memoria 


El programa lo tenemos ya almacenado en la memoria. ¿Qué tenemos que hacer 
para que el microordenador lo ejecute, es decir, para que interprete las instruc- 
ciones y realice los cálculos? 


Para que el microordenador ejecute el programa se escribe la palabra RUN, pul- 
sando a continuación la tecla [ENTER ]. 


Al ejecutar la primera instrucción 
10 INPUT B 


aparece en pantalla un signc de interrogación (en algunos microordenadores, L), 
deteniéndose momentáneamente la ejecución del programa. 


Con esta interrogación (o con L) el microordenador pregunta qué valor deseamos 
asignar a la variable B de la primera instrucción. Si, por ejemplo, tecleamos 100 (y 

ENTER )), la ejecución continúa, apareciendo inmediatamente en la pantalla el 
valor correspondiente a A: 


115 


¿Cómo ha llegado el microordenador al resultado 115? 


Con el valor 100 almacenado en la posición de memoria, representada por B, el 
microordenador ejecuta la instrucción 


20 LETA=B+15 


Esta instrucción indica a la máquina que realice las operaciones aritméticas indi- 
cadas a la derecha del signo igual y el resultado lo almacene en la posición de 
memoria representada por A, situada a la izquierda del signo igual. Es decir, cal- 
cula 100 + 15, y el resultado 115 lo almacena en A. 
A continuación se ejecuta la instrucción 

30 PRINTA 


que ordena al microordenador escriba o imprima en la pantalla el valor almace- 
nado en la posición de memoria representada por A. 


Finalmente, se ejecuta la instrucción 
40 END 
que indica al microordenador que el programa ha terminado. 


7. Cómo se cambian las instrucciones de un programa 
y cómo se borran 


e Según se va escribiendo una instrucción de un programa es normal que se te- 
clee un símbolo por otro. Si uno se da cuenta del error cometido antes de pul- 
sar la tecla | ENTER ), es decir, antes de cargar en memoria la instrucción, se 
puede corregir el error utilizando una tecla que tienen todos los microordena- 
dores y, aunque recibe distinto nombre, cumple la misma función: hace retro- 
ceder el cursor, borrando, uno a uno, los símbolos escritos. 


e Si deseamos hacer algún cambio en una determinada instrucción de un pro- 
grama cargado ya en la memoria procedemos de la siguiente manera: 
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— Averiguamos primero el número de la instrucción o instrucciones que de- 
seamos modificar. Para ello se hace aparecer en la pantalla el listado del 
programa, tecleando la instrucción LIST (y | ENTER )). 


Supongamos que en este momento está cargado en la memoria del mi- 
croordenador el programa anterior. Utilizando la instrucción LIST se obtiene 
su listado en la pantalla: 


INPUT B 
LETA=B + 15 
PRINTA 

END 


— Si ahora deseamos modificar la instrucción 20, por ejemplo, basta teclearla 
de nuevo, introduciendo las modificaciones. Si escribimos 


20 LETP=05*B+ 16 


y pulsamos la tecla | ENTER ), se borra de la memoria la primitiva instruc- 
ción 20 y queda cargada la 20 modificada. Para verificarlo, listamos de 
nuevo el programa y obtendremos en pantalla el nuevo listado: 


INPUT B 
LETP=.5*B+16 (*) 
PRINT A 

END 


e Cuando se conoce de antemano el número de la instrucción que se desea mo- 
dificar, no es necesario listar el programa, es suficiente con teclearla de nuevo. 
Sin embargo, para mayor seguridad conviene listarla, para lo cual se teclea la 
instrucción LIST y, a continuación, el número de la instrucción (y [ENTER )). 
Así, tecleando LIST 20 (y [ENTER J) se consigue hacer aparecer en la pantalla 
la instrucción 20. Para modificarla, ésta se teclea de nuevo. 


(*) Los números decimales con parte entera nula, el microordenador los escribe omitiendo el cero. 
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Si se desea eliminar una instrucción de un programa basta con teclear el nú- 
mero de la misma (y [ENTER ]). Por ejemplo, si escribimos 30 (y [ENTER ]) y, a 
continuación, listamos el programa anterior, se obtiene lo siguiente en la pan- 
talla: 


10 INPUT B 
20 LETP=.5*B+ 16 
40 END 


En este listado comprobamos que la instrucción 30 PRINT A no se encuentra 
ya cargada en la memoria. 

Para borrar todo el contenido de la memoria se escribe NEW (nuevo pro- 
grama) y se pulsa a continuación la tecla [ENTER]. 

También se puede borrar todo el contenido de la memoria desconectando y 
conectando el microordenador. 

Para borrar solamente lo que está escrito en la pantalla, la mayoría de los mi- 
croordenadores utiliza la instrucción CLS. Esta instrucción no borra lo almace- 
nado en la memoria. 


8. Errores de sintaxis 


Tecleamos el siguiente programa que calcula el producto de un número X por 
13.85 e imprime el resultado: 


IMPUT X 

LET Y = 13,85 * X 
PRINT Y 

END 


Inmediatamente después de escribir RUN (y [ENTER )) para ejecutar el programa, 
el microordenador, en lugar de imprimir el resultado, nos informa que hemos co- 
metido un error al teclear el programa, imprimiendo un mensaje en la pantalla: 


? SINTAXIS ERROR IN 10 


Este mensaje significa error de sintaxis en 10. Efectivamente, si nos fijamos bien 
en la instrucción 10 observamos que escribimos IMPUT, con M, en lugar de 
INPUT. (El mensaje de error puede ser diferente, según el microordenador; puede 
ser incluso un número clave.) 


Para corregir este error se modifica la instrucción 10 mediante el procedimiento 
explicado en el apartado anterior. 


9. Resumen de las palabras BASIC estudiadas en este capítulo 


Función 
Introduce por teclado el valor de una variable. 


Calcula el valor de una expresión y lo asigna a una 
variable. 


PRINT (*) Escribe en la pantalla el valor de una variable. 


END Indica la terminación de un programa. 


ENTER ), Hace que el dato o instrucción tecleados se alma- 


RETURN |, u otra cene en la memoria. 


equivalente 


RUN Inicia la ejecución de un programa. (En el argot in- 


formático suele decirse «correr» el programa.) 


(*) Las instrucciones INPUT, LET y PRINT se estudiarán con más detalle en los capítulos 2 y 3. 
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Palabra 
LIST 
LIST n 
LIST n, — n, 
LIST n — 


LIST — m 


Función 


Lista el programa almacenado en la memoria. 

Lista la instrucción numerada con n. 

Lista la serie de instrucciones comprendidas entre 
ny y n,, éstas inclusive. 

Lista las instrucciones comprendidas entre n y el fi- 
nal. 

Lista las instrucciones anteriores a la n. 


Borra todo el contenido de la memoria. 


Borra lo que está escrito en la pantalla, pero no el 
contenido de la memoria. 


», Comenzando a programar en BASIC 


Primeros programas resueltos con INPUT, PRINT, 
LET y END 


RESUMEN DE LAS INSTRUCCIONES 


INPUT 


Esta instrucción permite introducir datos desde el teclado, los cuales 
se asignan a las variables. 


y 


Ejemplo 
Cuando el microordenador ejecuta 
10 INPUT R 


aparece en la pantalla una ? (o una L), esperando a que se teclee un valor numé- 
rico, el cual quedará asignado a la variable R. 


Después de tecleado el valor, continúa la ejecución de las otras instrucciones del 
programa. 


PRINT 
Esta instrucción imprime en la pantalla los valores de las variables. 


y 


Ejemplo 
Cuando el microordenador ejecuta la instrucción 
50 PRINTL 


inscribe en la pantalla el valor de la variable L. Si, por ejemplo, en este instante, el 
valor de L es 23.207, al ejecutarse 50 PRINT L aparece en la pantalla 23.207. 
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LET 


La instrucción LET asigna a una variable un valor o un resultado de 
una expresión aritmética, una vez calculada. 


y 


Ejemplos 
e Al ejecutarse la instrucción 
30 LETA = 0.238 
a la variable A se asigna el valor 0.238. 
e Cuando se ejecuta la instrucción 
50 LETL=2*PlI*R 


a la variable L se asigna el resultado que se obtiene al calcular la expresión 
2 x 3.14159265 + valor de R. 


Observaciones 


e En la mayoría de los microordenadores se puede suprimir la palabra LET; es 
decir, en lugar de 


S5OLETL=2*PIx*R 
se puede escribir 
50 L=2x*PIx*R 


e En una expresión aritmética, primero se calculan las operaciones que están en- 
tre paréntesis, después las potencias (A, f Ó *x*), después los productos (*) y 
cocientes (/), y finalmente, las sumas (+) y las restas (—). 


Una vez tenido en cuenta este orden de prioridad, la expresión se calcula de 
izquierda a derecha. 


END 
Esta instrucción indica el fin de un programa. 


y 


Observación 


Algunos microordenadores no exigen incluir END. Incluso el ZX Spectrum no dis- 
pone de esta instrucción. En su lugar se puede poner STOP. 
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PROGRAMAS RESUELTOS EXPLICADOS ms 


2.1. 


2.2. 


2.3. 


Escribe un programa que calcule la expresión Y = 0,25 X + 0,8, e 
imprima el resultado. 


10 INPUT X 

20 LET Y = 0.23 * X + 0.8 
30 PRINT Y 

40 END 


— Mediante la instrucción 10 se introduce por el teclado un nú- 
mero que se asigna a X. 

— La instrucción 20 calcula el valor de la expresión 0.23 * X + 0.8 
para X = número introducido. 

— La instrucción 30 escribe en la pantalla el valor de Y, calculado 
por la instrucción anterior. 

— La instrucción 40 da por finalizado el programa. 


Explica cómo harías para ejecutar el programa anterior. 


¿Se detiene la ejecución en algún momento? ¿Qué tienes que ha- 
cer para que continúe la ejecución? 


— Para ejecutar el programa expuesto anteriormente hay que te- 
clear RUN [ENTER]. 

— La ejecución se detiene inmediatamente, apareciendo una ? o 
una L en la pantalla. 

— Para que continúe la ejecución hay que introducir un valor por 
el teclado. 


Escribe un programa que calcule la suma de dos números e im- 
prima el resultado. 


10 INPUTA 

20 INPUT B 

30 LETS=A+B 
40 PRINTS 

50 END 


— Al ejecutarse este programa, la ejecución se detiene dos veces. 
En la primera espera a que se introduzca por el teclado un valor 
para A y, en la segunda, espera a que se introduzca un valor 
para B. 

— La instrucción 30 calcula A + B, y el resultado lo asigna a S. El 
valor de S lo imprime la introducción 40. 
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2.4. 


2.5. 


2.6. 


2.7. 


Escribe un programa que calcule el producto de dos números e im- 
prima el resultado. 


10 INPUT X 

20 INPUT Y 

30 LETP=X*Y 
40 PRINTP 

50 END 


— Como en el programa anterior, las instrucciones 10 y 20 hacen 
que se pueda introducir por el teclado dos valores, uno para X y 
otro para Y. 

— La instrucción 30 imprime en la pantalla el valor de P. 


¿Qué aparecerá en la pantalla al ejecutar el siguiente programa? 


10 INPUT A 

20 INPUT B 

30 LETC=A 7 B 
40 PRONT C 

50 END 


Aparecerá un mensaje de este tipo: 


SINTAXIS ERROR IN 40 


debido a que la palabra PRONT está mal escrita. En lugar de 
PRONT es PRINT. 


Explica cómo harías para corregir el programa anterior, de tal ma- 
nera que al ejecutarlo llegue a imprimir el valor de C. 


Tecleando de nuevo la instrucción 40, escribiéndola correctamente: 
40 PRINT C 


Escribe un programa que calcule el cuadrado de un número e im- 
prima el resultado. 


10 INPUT N 

20 LETC=N7 2 
30 PRINT C 

40 END 


— Mediante la instrucción 10 se introduce el valor de N. 

— la instrucción 20 calcula el cuadrado de N y el resultado lo 
asigna a la variable C. 

— La instrucción 30 imprime el valor de C. 
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2.8. 


2.9. 


Indica qué calcula el siguiente programa: 


10 INPUTA 

20 INPUT B 

30 INPUT C 

40 LETX=A*Bx*C 
50 PRINT X 

60 END 


¿Cuántas veces se detiene la ejecución de este programa? ¿Por 

qué? 

— Este programa calcula el producto de tres números. 

— La ejecución del programa se detiene tres veces porque con- 
tiene tres instrucciones INPUT. 


El siguiente programa debe sumar dos números y a la suma multi- 
plicarla por 5. 


¿Logra hacer este cálculo? En caso negativo modifica el programa. 


10 INPUT H 

20 INPUT J 

30 LETP=H+Jx5 
40 PRINTP 

50 END 


— No logra hacer el cálculo, ya que con la expresión H +) x* 5, el 
5 sólo multiplica a J. 

— Para que el programa lograra hacer el cálculo correctamente 
habría que escribir la instrucción 30 así: 


30 LETP=(H+J))x*5 


Zl. 


Escribe el programa que calcule el producto de dos números. 


10 INPUTA 

20 INPUT B 

30 LETP=A*B 
40 PRINTP 

50 END 
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22, 


23. 


2.4, 


2.5. 


2.6. 


Explica qué hace el siguiente programa: 


10 INPUTA 

20 LETB=A+1 
30 PRINT B 

40 END 


Este programa halla el número siguiente a A, y lo escribe en la pantalla. 


Suponte que el programa del ejercicio anterior está cargado en la memo- 
ria del microordenador. ¿Qué tienes que hacer para ejecutarlo? 


Teclear RUN | ENTER |. 


Según estás tecleando la instrucción 
20 LEPB=A+1 


te das cuenta, antes de pulsar la tecla | ENTER |, que has cometido un 
error al escribir LEP en lugar de LET. ¿Qué harías para corregir este error? 


Para corregir este error se hace retroceder el cursor hasta que queda 
superpuesto con la letra P; a continuación se teclea T, y finalmente se 


pulsa | ENTER |. 


Al ejecutar el siguiente programa, aparece en la pantalla un mensaje de 
error. Averigua cuál es dicho error y el mensaje que emite el microordena- 
dor. 


10 INPUT N 

20 LET=C=N 13 
30 PRINTC 

40 END 


— El error está en la instrucción 20, y es debido al primer signo igual que 
está a la derecha de la palabra LET. 

— El mensaje que aparece en la pantalla es similar a éste: 
SINTAXIS ERROR IN 20. 


Explica cómo harías para corregir el programa anterior para lograr que ter- 
mine su ejecución. 


Se corrige la instrucción 20 volviéndola a escribir correctamente: 
20LETC=N f 3 
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2.1. 


2.8. 


29. 


2.10. 


Al teclear el programa siguiente tienes un lapsus y escribes una instrucción 
dos veces con número diferente. ¿Cómo harías para borrar la instrucción 
que no corresponde? 


10 INPUT P 

20 LETD = P/168.690 
30 PRINTD 

40 PRINTD 

50 END 


Escribiendo lo siguiente: 
40 ENTER 


Después de escribir un programa en el papel deseas cargarlo en memoria, 
estando almacenado en ésta un programa que no te interesa conservarlo. 
¿Qué harías antes de empezar a teclear el nuevo programa? 


Antes de empezar a teclear el nuevo programa hay que teclear NEW 
ENTER | para borrar todo el contenido de la memoria. 


Escribe en lenguaje BASIC la siguiente expresión: 


y=027(é - xt 7:30-25 


LET Y = 0,27 * (X 1 3 -— 1/2 * X + 1/25) f 2/30 — 25 


En los programas siguientes indica en qué orden se hacen las operaciones 
y qué resultado imprimirá el microordenador en la pantalla. 


a) 1OLETY=5-5:87 2 
20 PRINT Y 
30 END 


— En la instrucción 10, primero se calcula 8 f 2; a este resultado se 
multiplica por 5, y finalmente, al primer 5 se resta el resultado an- 
terior, 

— En la pantalla aparece este resultado: -315. 


b) 10 LETY=(5-5)*8% 2 
20 PRINT Y 
30 END 


— Primero se hace la resta (5 — 5); después se calcula 8 4 2 y final- 
mente se multiplican ambos resultados. 
— En la pantalla aparece 0, como resultado final. 
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10 LETY=5-2*442 
20 PRINT Y 
30 END 


— En la instrucción 10, primero se calcula 4 f 2; a este resultado se 
multiplica por 2, y finalmente, al 5 se resta el resultado anterior. 

— En la pantalla se imprime —27. 

10 LETY=5-(2*4) 1 3 

20 PRINT Y 

30 END 


— Primero se hace el producto (2 * 4), después este producto se 
eleva al cubo, y finalmente, al 5 se resta el resultado anterior. 
— En la pantalla aparece escrito —507. 
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3 Avanzando en la programación 


Programas resueltos con INPUT, REM y PRINT 


RESUMEN DE LAS INSTRUCCIONES 


INPUT 
Esta instrucción permite introducir un texto entrecomillado y uno o 
varios datos, los cuales se asignan a las variables correspondientes. 


El texto entrecomillado se separa de las variables mediante un punto 
y coma, y las variables entre sí, mediante comas. 


y 


Ejemplos 
e Cuando el microordenador ejecuta esta instrucción 
20 INPUT “RADIO”; R 


imprime en la pantalla la palabra RADIO y después interrumpe la ejecución 
hasta que se introduzca por el teclado un valor para la variable R. 
e Sila instrucción es 
30 INPUT “RADIOS”; R1, R2 
el microordenador imprime en la pantalla la palabra RADIOS, e interrumpe la 
ejecución hasta que se introduzca por el teclado un valor para la variable R1. 


Una vez introducido, se interrumpe otra vez la ejecución hasta que se intro- 
duzca otro valor para la variable R2. 


REM 


Esta instrucción permite añadir aclaraciones o comentarios en un 
programa sin afectar a su ejecución. 


La instrucción REM, aunque no tiene ninguna influencia en la ejecu- 
ción de un programa, sí ocupa posiciones de memoria. 


Ejemplo 
Cuando el microordenador ejecuta un programa y se encuentra con una instruc- 
ción como ésta 

55 REM CALCULA LA RAÍZ CUADRADA 


pasa a la siguiente instrucción sin que se produzca ninguna alteración en la ejecu- 
ción del programa. 


Observar que el comentario no es necesario ponerlo entre comillas. 


PRINT 


La instrucción PRINT imprime en la pantalla los caracteres que se 
encuentran entre comillas y los valores de las variables. 


Esta instrucción también puede calcular el valor de una expresión 
aritmética, para imprimirlo a continuación. 


y 


Ejemplos 
e La ejecución de 


10 INPUT L, A 
20 PRINT “LARGO ="; L, “ANCHO ="; A 


imprime esta pantalla: 


— El texto entrecomillado aparece en la pantalla sin comillas. 
— En la pantalla se imprimen los valores de las variables L y A, pero no éstas. 
— LARGO = y ANCHO = aparecen separados en la pantalla. 
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e El punto y coma y la coma en la instrucción PRINT. 


— Lo que está separado por un punto y coma se imprime seguido en la 
pantalla. Ejemplo: LARGO = y ... y lo mismo ANCHO y ... 


— Lo que está separado por una coma se imprime separado, en dos zonas 
contiguas de la pantalla. Ejemplo: LARGO = ... y ANCHO = ... 


e Una instrucción PRINT sin variables ni textos deja una línea en blanco en la 
pantalla. Ejemplo: ejecutando este programa 


10 INPUTA, B, € 
20 PRINTA 

30 PRINT B 

40 PRINT 

50 PRINT C 

60 END 


se obtiene esta pantalla 


e Si una instrucción PRINT va seguida de una expresión aritmética, primero cal- 
cula el valor de dicha expresión y después lo imprime. Ejemplo: ejecutando 


5 Pl = 3.1416 
10 INPUTR 
20 PRINT2*PI*R 


se obtiene en la pantalla el valor de la longitud de la circunferencia para el ra- 
dio introducido. 
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PROGRAMAS RESUELTOS EXPLICADOS — > 


3.1. Escribe un programa que calcule el cubo de un número e imprima 
el resultado. Utiliza la instrucción REM para dar título al programa. 


10 
20 
30 
40 
50 


— la 


REM CALCULA EL CUBO DE UN NUMERO 
INPUT “INTRODUCE EL NUMERO”; N 


LETC=N 1 3 
PRINT “EL CUBO DE”; N; “ES IGUAL A”; C 
END 


instrucción 10 da título al programa sin producir ninguna al- 


teración en la ejecución del mismo. 


— La instrucción 20 introduce el valor de N y la 30 calcula el 
cubo C. 

— La instrucción 40 imprime en la pantalla lo que muestra esta 
pantalla. 


3.2. Escribe un programa que calcule la longitud de la circunferencia 
(L = 2 x 3,1416 R) y el área del cuadrado (S = 1”), utilizando dos 
veces la instrucción REM, e imprime los resultados. 


10 
15 
20 
30 
40 
50 
60 
70 
80 
90 


REM LONGITUD DE LA CIRCUNFERENCIA 
PI = 3.1416 

INPUT “RADIO”; R 

LETL=2*Pl*R 

PRINT “LONG. CIRC. ="; L 

REM AREA DEL CUADRADO 

INPUT “LADO”; L1 

LETA=11 7 2 

PRINT “AREA CUAD. ="; A 

END 


— Las instrucciones 10 y 50 dan título a las dos partes del pro- 
grama sin alterar su ejecución. 
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3:3. 


3.4. 


— Después de introducir un valor para R en la instrucción 20, la 
30 calcula L, y | la 40 imprime 
LONG. CIRC. = (valor de L) 


— La ejecución del programa se interrumpe en la instrucción 60, 
esperando a que por el teclado se introduzca un valor para L1. 


— La instrucción 70 calcula el valor de A y la 80 imprime 
AREA CUAD. = (valor de A) 


Escribe lo que aparecerá impreso en la pantalla al ejecutarse los si- 
guientes programas: 


a) 10 LETX= 3.25 b) 10 LET X= 3.25 
20 PRINT “X" 20 PRINT X 
30 END 30 END 


c) 10 LETX= 3.25 
20 PRINT “X="; X 
30 END 


a) Ejecutando 
10 LET X= 3.25 
20 PRINT “X” 
30 END 
se obtiene en la pantalla la letra X, pero no el valor de X. 


b) Ejecutando 
10 LET X= 3.25 
20 PRINT X 
30 END 
se obtiene en la pantalla el valor de X, es decir, 3.25. 


c) Ejecutando 


10 LET X= 3.25 
20 PRINT “X="; X 
30 END 


en la pantalla aparece X = 3.25. 


Escribe lo que imprimiría en la pantalla la instrucción 40 una vez 
ejecutada: 


10 LETA=3 

20 LETB=4 

30 LETC=A12+B12 

40 PRINT “LA SUMA DE LOS CUADRADOS DE LOS NUMEROS A 
Y BES C="; C 

50 END 


32 


En la pantalla se obtiene lo que muestra la fotografía. 


Escribe un programa que calcule el producto de un número X por 
5, almacene el resultado en P e imprima en una línea: 


EL NUMERO ES X = (valor de X) 
y en otra línea: 
EL PRODUCTO P = (valor de P). 


10 
20 
30 
40 
50 
60 


REM PRODUCTO DE UN NUMERO POR 5 
INPUT “INTRODUCE EL NUMERO”; X 
PRINT “EL NUMERO ES ="; X 


LETP=X*5 
PRINT “EL PRODUCTO P ="; P 
END 


— La instrucción 20 permite introducir un valor para X. 
— Las instrucciones 30 y 50 imprimen los valores de X y de P, 
acompañados de los textos que están entre comillas. 


3.6. Elabora un programa que calcule el área del círculo (S = 3,1416 


R?) utilizando instrucciones [PRINT]para presentar con claridad el 
resultado en la pantalla. 


10 REM SUPERFICIE DEL CIRCULO 

15 Pl = 3,1416 

20 INPUT “INTRODUCE EL VALOR DEL RADIO”; R 
30 LETS=PI*Rf 2 

40 PRINT “PARAR = "; R; “EL VALOR DES =";S 
50 END 


— Mediante la instrucción 20 se introduce el valor del radio. 

— La instrucción 30 calcula la superficie del círculo y su valor lo 
asigna a la variable de S. 

— La instrucción 40 imprime los valores de R y de S, acompa- 
ñados de los textos que están entre comillas. Si se introduce 
10 para R, se obtiene este resultado en la pantalla: 
PARA R = 10 EL VALOR DES = 314.16 


jor PROGRAMAS RESUELTOS “e 


3.1. 


¿Cómo aparecerán escritos los números 5 y 37 al ejecutarse los siguientes 
programas? 


a) 10 PRINT 5,37  b) 10 PRINT5;37  c) 10 PRINTS  d) 10 PRINT 5 


20 END 20 END 20 PRINT 37 20 PRINT 
30 END 30 PRINT 
40 PRINT 37 
50 END 


En una pantalla de dos zonas los números aparecerían así: 


a) b) c) d) 
5 37 537 S S 
37 
37 
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3.2. Escribe en un papel lo que aparecerá en la pantalla al ejecutarse el si- 
guiente programa. (Suponte que se introduce 14,35 para H y 25 para R.) 


5 REM LLEGADA DE TRENES 
10 INPUT H 
20 INPUT R 
30 PRINT ” AVISO” 
—_— 


13 espacios 
40 PRINT 
50 PRINT “LLEGADA”, “RETRASO” 
60 PRINTH, R; “MIN” 


70 END 
012345678 910111213141516171819202122232425262728293031 
AJV] 1 [SIO 
LLI[E[G[A[DÍA RJEJT[R[A|S[O 
114] [3/5 2154 [MIN 


3.3. Escribe un programa que haga la conversión de dólares a pesetas y escriba 
en la pantalla lo siguiente: 


0123456780910111213141516171819202122232425262728293031 
CIOIN|VIE[R|S|IJÓNN| [DEl IDIÓNLIA[RIEIS| [al [PlElsle¡TÍA|S 


DJÓ[L|A|R|E[S| | PJEJS[E[T[A|S| | 


(Número de dólares) (Número de pesetas) 


AA ANN 


10 REM CONVERSION DE DOLARES A PESETAS 

20 INPUT “DOLARES”; D 

30 LETP = D*168,027 

40 PRINT “CONVERSION DE DOLARES A PESETAS” 
50 PRINT 

60 PRINT “DOLARES”, “PESETAS” 

70 PRINTD, P 

80 END 

(Cotización: 1 dólar = 168.027 pesetas). 
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3.4, Averigua la cotización del día y escribe un programa que convierta pesetas 
a francos belgas. Incluye en el programa instrucciones PRINT que presen- 


ten los 


resultados en la pantalla en forma similar a la presentada en el 


ejercicio anterior. 


10 REM CONVERSION DE PESETAS A FRANCOS BELGAS 

20 INPUT “PESETAS”; P 

30 LETFB = 

40 PRINT “CONVERSION DE PESETAS A FRANCOS BELGAS” 
50 PRINT 

60 PRINT “PESETAS”, “FRANCOS BELGAS” 

70 PRINT P, FB 

80 END 

Cotización: 


3.5. Las fórmulas del área y del volumen de la esfera son S = 4 n R? y V 3 


4 


Tu R?, respectivamente. Elabora un programa que introduzca el valor del 


radio R, 


calcule S y V, y presente los resultados así: 


012345 


. [R|=| (Valor del radio) 


>l área) | | V|=| (Valor del volumen) 
| 


6 7 8 9 10111213141516171819202122232425262728293031 
TT] 100 00 A E O 


blanco) 


AAA 


REM AREA Y VOLUMEN DE LA ESFERA 
INPUT “RADIO DE LA ESFERA”; R 
LETS =4 * 314159265 *R f 2 

LET V = 4/3 * 3.14159265*R f 3 
PRINT “RADIO,R =";R 

PRINT 

PRINT "S="; S, "V="; V 

END 


3.6. Dibuja en un papel la figura que hace aparecer en la pantalla el siguiente 
programa: 
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3.7. Haz un programa que dibuje en la pantalla la siguiente figura, incluidos 
los números que expresan la medida de los lados. 


1 I 
SI 
l 


3.8. Realiza un programa que dibuje en la pantalla el encabezamiento de la si- 
guiente tabla estadística; en la que aparezcan la variable X, la frecuencia F 
y la frecuencia acumulada, FA. 


3.9. La fórmula que calcula el interés simple | en función del capital C, el rédito 
R y el tiempo T, expresado en años, es: 


lis CRT 
100 


Escribe un programa que calcule el interés y presente los datos y resul- 
tados en la pantalla así: 


4 5 6 7 8 9 10111213141516171819202122232425262728293031 


11TT] 


C|=| (Valor de C) R|=| (Valor de R) 


LI] 1 
T|=| (Valor de T) 


10 REM INTERES SIMPLE 

20 INPUT “INTRODUCE C,R, T”; C,R, T 

30 LETI=C*R*T/100 

40 PRINT 

50 PRINT*C=";C;% —R="¿R,“T=";T;%  |=";1 
60 END 
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3.10. La fórmula que transforma grados centígrados a grados Fahrenheit es 


3,11 


3 
F = 5 € + 32 
Realiza un programa que haga la conversión de grados centígrados a Fah- 
renheit y presente en la pantalla el dato y resultado así: 


GRADOS CENT. GRADOS FAHR. 
(Una línea en blanco) 


(Valor de gr. cent.) (Valor de gr. Fahr.) 


10 REM CONVERSION DE GRADOS CENTIGRADOS A FAHRENHEIT 
20 INPUT “GRADOS CENTIGRADOS”; C 

30 LETF=95*C +32 

40 PRINT “GRADOS CENT.”, “GRADOS FAHR.” 

50 PRINT 

60 PRINTC,F 

70 END 


Las fórmulas de la altura descendida y de la velocidad alcanzada por un 
móvil que cae libremente en el vacío son: 


s Lal á 
h= y9t y v=gt 


donde h es la altura descendida, g la aceleración de la gravedad (9,8 3 
S 


y t el tiempo. Escribe un programa que calcule la altura descendida y la 
velocidad alcanzada para un tiempo t. Escribe instrucciones PRINT para 
presentar con claridad los datos y resultados en la pantalla. 


10 REM CALCULO DE LA ALTURA Y VELOCIDAD EN LA CAIDA LIBRE 
20 INPUT “TIEMPO”; T 

30 LETH=1/2*98*Tf 2 

40 LETV=9.8*T 

50 PRINT “SI T="; T 

60 PRINT “LA ALTURA DESCENDIDA, H ="; H 

70 PRINT “Y LA VELOCIDAD ALCANZADA, V="; V 

80 END 
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3.12. Recuerda la ley de Ohm que relaciona la resistencia R de un conductor, la 
caída de potencia V que se produce entre los extremos de la resistencia al 
pasar la intensidad | por la misma: 


ae 

| 

Haz un programa que calcule la intensidad | en función de R y V y pre- 
sente los datos y resultados de la siguiente forma: 


RESISTENCIA, R = (valor de R). 
CAIDA DE TENSION, V = (valor de V). 
INTENSIDAD, | = (valor de |). 


10 REM LEY DE OHM 

20 INPUT “INTRODUCE LOS VALORES DE V Y DEl”; V, | 
30 LETR = VI 

40 PRINT “RESISTENCIA, R="; R 

50 PRINT “CAIDA DE TENS, V="; V 

60 PRINT “INTENSIDAD, |="; | 

70 END 
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-A Saltos incondicionales 
e instrucciones condicionales 
Programas resueltos con GOTO e IF ... THEN... STEP 


RESUMEN DE LAS INSTRUCCIONES 


GOTO 


Esta instrucción interrumpe la secuencia normal en la ejecución de 
un programa y transfiere el control a la línea cuyo número se especi- 
fica a la derecha de la palabra GOTO. 


y 


Ejemplo 
Cuando en un programa, el microordenador ejecuta 
80 GOTO 130 


transfiere el control a la línea 130, continuando la ejecución del programa a partir 
de esta línea. 


Observaciones 


La instrucción GOTO puede utilizarse también como comando directo. Así, 
GOTO 90 (sin número delante) ejecuta, después de pulsar la tecla ENTER , el 
programa que se encuentra en memoria, a partir de la línea 90. 


Esta forma de iniciar la ejecución de un programa tiene la ventaja de conservar en 
la memoria los valores asignados previamente a variables en instrucciones INPUT, 
cosa que no ocurre cuando se inicia la ejecución con RUN. 
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MF... THEN... 


El microordenador ejecuta la instrucción escrita a continuación de THEN si 
se cumple la condición expresada después de IF. En caso contrario, conti- 
núa la ejecución del programa en la instrucción siguiente a IF ... THEN ... 


y 


Ejemplos 
e Cuando se ejecuta la instrucción 
50 IFA > 2 AND A < 5 THEN PRINT A 
si A es mayor que 2 y a la vez menor que 5, entonces se imprime el valor de A. 
e La instrucción 
70 IFA<>BOR B <> CTHEN GOTO 1000 


transfiere el control a la instrucción 1000 si A es distinto de B o B es distinto 
de C, y en caso contrario, la ejecución continúa en la instrucción siguiente. 


e La instrucción 
9) IFA+3<B% 2ANDC f 2>3THENLETX=2*A 


asigna a la variable X el doble del valor de A, si el valor de la variable A + 3 es 
menor que el de la variable B al cuadrado y si el valor de la variable C al cua- 
drado es mayor que 3. 


Observaciones 


La condición que se escribe después de la palabra IF puede utilizar los siguientes 
símbolos de relación: 


> , mayor que; > = , mayor o igual a 
< , menor que; < = , menor o igual a 
=, igual a; <>, distinto a 


y los operadores lógicos 
AND: Y; OR: O; NOT: NO 


STOP 


Esta instrucción detiene la ejecución del programa en la línea en que 
se encuentra esta instrucción. 
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Ejemplo 
La instrucción 
100 STOP 
hace que la ejecución del programa se detenga en la línea 100. 


CONT 


Esta instrucción reanuda la ejecución del programa en la línea si- 
guiente a la que ha sido interrumpido con la instrucción STOP. 


y 


Ejemplo 
Si Un programa contiene estas instrucciones 


100 STOP 
110 PRINT “CONTINUA” 


la ejecución se detiene en la línea 100. Cuando se pulsa CONT se ejecuta la ins- 
trucción siguiente 110, y en la pantalla se imprime la palabra CONTINUA. 


PROGRAMAS RESUELTOS EXPLICADOS ooo 


4.1. Escribe en un papel lo que escribiría el microordenador en la pan- 
talla al ejecutarse este programa: 


10 LETA=0 

20 PRINT “YA ESTA BIEN DE REPETICIONES!” 
30 LETA=A+1 

40 PRINTA 

50 PRINT 

60 GOTO 20 

70 END 
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¡YA ESTA BIEN DE REPETICIONES! 
1 
¡YA ESTA BIEN DE REPETICIONES! 


— Inicialmente la variable A vale O (10 LET A = 0). A continua- 
ción se escribe la frase por primera vez (instrucción 20). La va- 
riable A toma a continuación el valor 1 (30 A = A + 1), y se 
imprime este valor (40 PRINT A). La instrucción 50 PRINT 
hace saltar una línea. 

— El proceso se repite incrementándose la variable A en una uni- 
dad cada vez que la instrucción 60 GOTO 20 transfiere el con- 
trol a la instrucción 20. 


4.2. Indica qué instrucciones nunca se ejecutan en el siguiente pro- 
grama: 


10 LETA = 5.1 
20 LETB = 8.9 
30 LETS=A+B 
40 GOTO 70 

50 LETP=A*B 
60 PRINTP 

70 PRINTS 

80 END 


Como la instrucción 40 GOTO 70 transfiere el control a la instruc- 
ción 70, no se ejecutan nunca las instrucciones 50 y 60. 


En las instrucciones 10 y 20, A y B toman los valores 5.1 y 8.9, 
respectivamente. En la instrucción 30, S toma el valor de su suma, 
14.0, que se imprimirá en la pantalla mediante la instrucción 70 
PRINT S. 


4.3. Elabora un programa que escriba un número ilimitado de veces la 
frase ESTOY PROGRAMANDO CON LA INSTRUCCION GOTO e im- 
prime el número de veces que lo escribe. 

10 LETA=0 
20 PRINT “ESTOY PROGRAMANDO CON LA INSTRUCCION GOTO” 
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30 LETA=A+1 
40 PRINTA 

50 GOTO 20 

60 END 


Este programa, salvo la frase que se imprime, es idéntico al del 
ejercicio 4.1. 


4.4. Haz un programa que escriba todos los números naturales. 


1 REM NUMEROS NATURALES 
10 LETN=0 
20 PRINTN 
30 LETN=N+1 
40 GOTO 20 
50 END 


— En la instrucción 10 se da a la variable N el valor O que se im- 
prime en la instrucción 20. 

— En la instrucción 30 se añade una unidad a N que ahora vale 1. 

— La instrucción 40 transfiere el control a la instrucción 20 que 
imprime de nuevo este número. 

— En la instrucción 30 N se incrementa una unidad y vale ahora 
2, se Salta de nuevo a la instrucción 20 que imprime este nú- 
mero. El proceso continúa así indefinidamente apareciendo en 
la pantalla los sucesivos números naturales. 


4.5. Escribe en un papel lo que aparecería en la pantalla si se ejecutara 
el siguiente programa: 


10 LETC=0 

20 PRINT C 

30 PRINT 

40 LETC=C+2 
50 GOTO 20 

60 END 
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4.6. 


4.7. 


Aparecen los números pares separados por espacios en blanco. 


— En la instrucción 10 C toma el valor O y lo imprime (instrucción 
20). En la instrucción 30 se salta una línea. 

— En la instrucción 40 LET C = C+2(C = 0 + 2) C toma el 
valor 2 y en la 50 se transfiere el control a la instrucción 20 
que imprime este valor de C. El proceso sigue así indefinida- 
mente. 


Elabora un programa que imprima los sucesivos números impares 
en filas. 


10 LETI=1 

20 PRINTI;*” ”; 
30 LETI=1+2 
40 GOTO 20 

50 END 


— La variable |, que inicialmente vale 1, va imprimiéndose en la 
instrucción 20, dejando un espacio en blanco entre cada nú- 
mero impar. 

— En la instrucción 30 la variable | va incrementándose de 2 en 2 
unidades. 


Escribe en un papel lo que aparecerá en la pantalla al ejecutarse 
el siguiente programa, para N = 8. 

10 INPUT N 

20 LETA=0 

30 PRINTA; ”,”; 

40 LETA=A+1 

50 IFA < N THEN GOTO 30 

60 END 


0, 1, 2,3, 4,5, 6,7, 
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4.8. 


4.9. 


— En la instrucción 10 se introduce el número 8. 

— A, inicialmente, vale O (instrucción 20). 

— En la instrucción 30 se imprimen los valores que toma A sepa- 
rados por comas. 

— La instrucción 40 LET A = A + 1 incrementa en una unidad 
el valor de A. 

— La instrucción 50 analiza si se ha alcanzado el valor introdu- 
cido en la instrucción 10 INPUT N (en este caso 8). Si este va- 
lor no se ha alcanzado se transfiere el control a la instrucción 
30, en caso contrario el programa se detiene. 


Escribe un programa que calcule e imprima los múltiplos de 5 
hasta un cierto número. 


1 REM MULTIPLOS DE 5 
10 INPUT N 
20 LETM=5 
30 PRINTM 
40 LETM=M+5 
50 IF M<N THEN GOTO 30 
60 END 


— En la instrucción 10 se introduce el número N hasta el cual se 
calcularán los múltiplos de 5. 

— En la instrucción 20 LET M = 5, M toma como valor inicial 5 
que se imprime en 30 PRINT M. 

— En la instrucción 40 LET M = M + 5, M incrementa su valor 
en 5. 

— La instrucción 50 analiza si se ha alcanzado el valor tope intro- 
ducido en 10. Si esto no ha ocurrido todavía se transfiere el 
control a 30 para que el proceso continúe. En caso contrario el 
programa termina. 


Escribe un programa que calcule e imprima los números pares na- 
turales hasta un cierto número. 


10 INPUT N 

20 LETM=0 

30 PRINTM 

40 LETM=M+2 

50 IFM <N THEN GOTO 30 
60 END 


El programa es muy semejante al anterior, salvo que en la instruc- 


ción 20 LET M = 0, M toma el valor inicial O y en la instrucción 
40 su valor se incrementa de 2 en 2. 
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4.10. 


Indica qué hace el siguiente programa: 


10 INPUT N 

20 LETA=0 

30 PRINTA; ”,”; 

40 LETA=A+7 

50 IFA < N THEN GOTO 30 
60 PRINT 

70 PRINT 

80 LETB=0 

90 PRINTB;”,”; 
100 LETB=B+ 11 
110 IFB <N THEN GOTO 90 
120 END 


— Imprime los múltiplos de 7, separados por comas, hasta un 
cierto número N. 

— A continuación obtiene los múltiplos de 11 hasta ese mismo 
número (también separados por comas). 

— Entre los múltiplos de 7 y los múltiplos de 11 las instrucciones 
60 y 70 hacen que se salten dos líneas. 


Haz un programa que calcule e imprima primero los múltiplos de 
19 menores que 216 y después los de 23. 


10 LETN = 216 
20 LETA=0 
30 PRINTA;”,”; 


40 LETA=A+ 19 

50 IFA < N THEN GOTO 30 
60 PRINT 

70 PRINT 

80 LETB=0 

90 PRINTB;”,”; 
100 LETB =B + 23 
110 IFB <N THEN GOTO 90 
120 END 


El programa es similar al 4.10. En la instrucción 10 se fija el tope 
numérico en 216. La instrucción 40 LET A = A + 19 hace que el 
valor de A se incremente de 19 en 19 unidades desde A igual a 
19 hasta llegar al máximo de 19 menor de 216. 


Después de dejar dos huecos en blanco el proceso se repite para 
los múltiplos de 23. 
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4.12. 


4.13. 


4.14. 


4.15. 


Elabora un programa que introduzca mediante INPUT una varia- 
ble, de tal manera que, si ésta tiene un valor mayor que cero, el 
programa vuelve a pedir un nuevo valor y, en caso contrario, ter- 
mine la ejecución. 


10 INPUT X 
20 IF X > 0 THEN GOTO 10 
30 END 


— La instrucción 10 permite introducir el valor de la variable X. Si 
el número es mayor que cero el control se transfiere a 10. Si el 
valor es cero o negativo el programa termina. 


Explica lo que hace este programa: 


10 INPUT A 

20 IFA < 10 AND A > 5 THEN GOTO 50 
30 PRINT “NO SE CUMPLE” 

40 GOTO 60 

50 PRINT “SI SE CUMPLE” 

60 END 


Escribe la frase SI SE CUMPLE cuando se introduce un número 
que sea a la vez menor que 10 y mayor que 5, es decir, 6, 7, 8 y 
9. En caso contrario, escribe la frase NO SE CUMPLE. 


Escribe un programa que introduzca un número y que imprima el 
signo + si este número es positivo y el signo — si es negativo. 


10 INPUT N 

20 IFN >= O THEN PRINT “+” : GOTO 40 
30 PRINT “—” 

40 END 


En la instrucción 10 INPUT N se introduce el valor del número. Si 
N es cero o positivo se imprime el signo +. Si no se cumple la 
condición (N es negativo) se imprime el signo —. 


Explica cada una de las instrucciones del programa siguiente: 


10 LETC=-1 

20 LETC=C+1 

30 PRINT C 

40 PRINT “INTRODUCE EL PESO” 

50 INPUT X 

60 IF X > 50 AND X < 60 THEN GOTO 20 
70 GOTO 40 

80 END 
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4.16. 


4.17. 


— La instrucción 10 asigna a C el valor —1. 

— La instrucción 20 añade a C una unidad (así C inicialmente 
vale 0). 

— La instrucción 30 imprime C. 

— La instrucción 40 imprime la frase "INTRODUCE EL PESO”. 

— La instrucción 50 pide un valor y lo asigna a la variable X. 

— La instrucción 60 analiza si el valor de X es mayor que 50 y a 
la vez menor que 60. Si se cumple la condición se transfiere el 
control a la instrucción 20. 


En caso de no cumplirse, la instrucción 70 transfiere el control a la 
instrucción 40. 


El programa permite contar cuántos valores del peso son a la vez 
mayores de 50 y menores de 60. 


Escribe un programa que calcule el número de alumnos cuyo peso 
sea mayor que 60 kilos y su estatura inferior a 1.65 metros. 


1 REM ALUMNOS DE PESO > 60 Y ALTURA < 1.65 
10 LETS = -1 
20 LETS=S+1 
30 PRINT “EL NUMERO TOTAL, HASTA EL MOMENTO ES: ”, S 
40 INPUTP 
50 INPUT A 
60 IFP > 60 AND A < 1.65 THEN GOTO 20 
70 GOTO 30 


— En las instrucciones 40 y 50 se introducen el peso y la altura. 
Si se cumple la condición establecida se transfiere el control a 
la instrucción 20 en la que se incrementa en una unidad el va- 
lor de S (que inicialmente es — 1) y se imprime este valor en la 
pantalla. Si no se cumple la condición, se transfiere el control 
a la instrucción 30 directamente y se imprime el valor que ya 
tenía S. 


Elaborar un programa que dé los múltiplos comunes de 3 y 7 
hasta un cierto número. 


Los múltiplos de 3 y 7 a la vez son 21, 42, 63, 84, es decir, los 
múltiplos de 21, así un programa que los calcula es 


10 INPUT N 

20 LETM = 21 

30 PRINTM 

40 LETM=M +21 

50 IFM<N THEN GOTO 30 
60 END 
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o PROGRAMAS RESUELTOS +++ 


4.1. 


4.2. 


4,3. 


4.4, 


4.5. 


¿El siguiente programa imprimirá algo en la pantalla? Da una explicación. 
10 LETR=533 
20 GOTO 40 
30 PRINTR 
40 END 


No imprime nada, puesto que salta a la instrucción 40 sin pasar por la ins- 
trucción 30 PRINT R que no se ejecuta. 
Escribe un programa que imprima, en columna, 8 veces el número 5.1. 


10 LETN=0 

20 LETN=N+1 

30 IFN <= 8 THEN PRINT 5.1 : GOTO 20 
40 END 


Modifica el programa anterior para que escriba los números en fila. 
Se modificaría la instrucción 30 así: 


30 IFN< = 8 THEN PRINT 5.1; ”, ”; : GOTO 20 
Explica lo que hace el siguiente programa: 

10 LETC=0 

20 INPUT “INTRODUCE UN NUMERO”; N 

30 LETC=C+1 


40 IFC > N THEN GOTO 70 
50 PRINT “SIGUE” 

60 GOTO 30 

70 PRINT “TERMINA” 

80 END 


Se pide un número en la instrucción 20. Si la variable C es mayor que este 
número escribe en la pantalla la palabra TERMINA. Si es menor o igual im- 
prime la frase SIGUE. 


¿Qué imprimirá el siguiente programa para X = 4? ¿Y para X = 83? 


10 INPUT “INTRODUCE EL NUMERO X”; X 
20 IFX<50THEN GOTO 40 

30 STOP 

40 PRINTX 

50 GOTO 10 

60 END 


Para X = 4 imprime 4 en la pantalla y pide un nuevo número. 
Para X = 83 se para sin imprimir nada. 
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4.6. 


4.7. 


4.8. 


4.9. 


Escribe en tu propio lenguaje las siguientes condiciones expresadas en len- 
guaje BASIC: 


a) IFA < 5 THEN GOTO 70 

b) IFA <> —1 THEN GOTO 20 

) FX <20 AND X >10 THEN GOTO 100 
) IFX<> Y OR X = Z THEN GOTO 80 


) Si A es menor que 5 vete a la instrucción 70. 

) Si A es distinto de —1 vete a la instrucción 20. 

) Si X es menor que 20 y X mayor que 10 vete a la instrucción 100. 
) Si X es distinto de Y o X es igual a Z ve a 80. 


en oo oSN 


Escribe las siguientes condiciones en lenguaje BASIC: 


a) Si el valor de X es menor o igual que cero pasa a la instrucción 30. 

b) Si el valor de B, es mayor que el valor B, pasa a la instrucción 350. 

c) Si el valor de X es mayor que Y y mayor que Z pasa a la instrucción 
500. 

d) Si el valor de X es mayor que Y o mayor que Z pasa a la instrucción 
320. 


a) IFX<=OTHEN GOTO 30 

b) IF B1>B2 THEN GOTO 350 

c) IFX>Y AND X > Z THEN GOTO 500 
d) IFX>YORX> Z THEN GOTO 320 


Escribe en lenguaje BASIC: 


a) Si Z es mayor o igual que A al cuadrado, entonces pasa a la línea 150. 
Si 3 veces A es igual a 12 entonces pasa a la línea 80. 


) 
a) IFZ>=A % 2 THEN GOTO 150 
) 1F3x* A = 12 THEN GOTO 80 


Escribe en una frase lo que expresan las siguientes instrucciones: 


a) 10 IFA > B + 2 THEN GOTO 500 
20 GOTO 200 

b) 10 IF C > N THEN GOTO 205 
20 LETC=C+1 


a) 10 Si el valor de A es mayor que el de B más 2, entonces vete a la ins- 
trucción 500. 
20 Vete a la instrucción 200. 

b) 10 Si el valor de C es mayor que N, entonces vete a 205. 
20 Haz el valor de C igual al anterior valor más uno. 
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4.10. 


4.11. 


4.12. 


4.13. 


Escribe una O más instrucciones en lenguaje BASIC que expresen lo si- 
guiente: 


a) Si Xes mayor que Y más 2, ir a la instrucción 220; en caso contrario, ir 
a la instrucción 125. 

b) Siles igual a cero, ir la instrucción 150, y si no es así aumenta el va- 
lor de J en una unidad. 


a) 10 IFX> Y + 2 THEN GOTO 220 
20 GOTO 125 

b) 10 IFI= 0 THEN GOTO 150 
20 LETJ=J+1 


Indica cuál de las dos instrucciones es incorrecta y explica por qué. 


a) 5 IFX 1 2= 100 THEN GOTO 50 
b) 30 IFX<=50THENX=X+5 
a) 


Esta instrucción es correcta. 
b) En algunos microordenadores no es correcta, pues después del THEN 
aparece una instrucción de asignación sin LET. 


¿Qué imprimirá el siguiente programa al ser ejecutado, si se introduce 8, 7 
y 5 para la variable X? 


10 LETT=0 

20 INPUT X 

30 LETT=T+5*X 

40 PRINTT 

50 GOTO 20 

60 END 
Para X = 8 imprime 40, a continuación para X = 7 imprime 75 (T = 
= 40 + 5 * 7), y después para X = 5 imprime 100 (T =75+5*5= 
= 100). 


Añade una o más instrucciones para que la ejecución del programa ante- 
rior termine después de imprimirse T, para los mismos valores de X. 


Para que la ejecución termine después de imprimir estos valores basta aña- 
dir las instrucciones 


35 IFX= 5 THEN GOTO 50 
50 END 
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4,14. Escribe lo que aparecería en la pantalla si se ejecutara el programa si- 
guiente para X = 5, —3, 6, 0, 8, —1. 


10 INPUT X 

20 IFX< O THEN GOTO 10 
30 PRINT X 

40 GOTO 10 

50 END 


Imprime los numeros positivos y el cero en la pantalla, pero no los nega- 
tivos. 


4.15. El siguiente programa ordena los números A y B. 


10 INPUT “INTRODUCE LOS DOS NUMEROS”; A, B 

20 IFA < B THEN GOTO 50 

30 IFA > B THEN GOTO 60 

40 IFA = B THEN GOTO 70 

50 PRINT A; “ES MENOR QUE”; B 

60 PRINT A; “ES MAYOR QUE”; B 

70 PRINTA; “ES IGUAL QUE”; B 

80 GOTO 10 

90 END 
Sin embargo, al introducir, por ejemplo, los números 5 y 7 se obtiene en 
la pantalla los siguientes resultados: 

5 ES MAYOR QUE 7 

5 ES MAYOR QUE 7 

5 ES IGUAL A 7 
Modifica el programa para corregir este fallo. 
Introduciendo instrucciones GOTO 10 después de cada PRINT para que 
sólo se ejecute uno de ellos cada vez. 
Por tanto, basta añadir las instrucciones 


55 GOTO 10 
65 GOTO 10 
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4.16. 


4.17. 


4.18. 


Escribe un programa que lea A y B y compare ambos valores de tal ma- 
nera que si A > B entonces calcule e imprima A — B, y, en caso contrario, 
calcule e imprima B — A. 


10 INPUTA 
20 INPUT B 
30 IFA >B THEN GOTO 60 
40 PRINTB — A 
50 GOTO 70 
60 PRINTA — B 
70 END 
Otra forma de escribir el programa es 
10 INPUTA, B 
20 IFA > B THEN PRINT A — B: GOTO 40 
30 PRINTB- A 
40 END 


Escribe un programa que lea dos números y los compare de tal manera 
que si el primero es mayor que el segundo, escriba su diferencia y su co- 
ciente; y en caso contrario, escriba su suma y su producto. 


10 INPUT A 

20 INPUT B 

30 IFA > B THEN GOTO 70 

40 PRINT “LA SUMA ES:”, A + B 

50 PRINT “EL PRODUCTO ES: ”,A *B 
60 GOTO 90 

70 PRINT “LA DIFERENCIA ES : ”, A-B 
80 PRINT “EL COCIENTE ES:”, A/B 

90 END 


Un programa que realiza la misma función es 


10 INPUT A, B 

20 tFA > B THEN PRINT A — B, A/B : GOTO 40 
30 PRINTA+B,A*B 

40 END 


Para conocer la opinión del público sobre un determinado producto se 
hace una encuesta, preguntando a un conjunto de personas sobre dicho 
producto. Las respuestas favorables se indican con 1 y las desfavorables, 
con 0. Elabora un programa que cuente las preguntas favorables y desfa- 
vorables. 
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Al introducir —1 se da por finalizado el proceso 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 


LETF=0 

LETD=0 

INPUT X 

IF X = —1 THEN GOTO 100 

IF X = O THEN GOTO 80 
LETF=F+1 

GOTO 30 

LETD=D+1 

GOTO 30 

PRINT “RESPUESTAS FAVORABLES”, F 
PRINT “RESPUESTAS DESFAVORABLES”, D 
END 


4.19. Escribe un programa que calcule la velocidad de un movimiento uniforme- 
mente variado, si la aceleración a es positiva. (La fórmula de la velocidad 
en este movimiento es v = Vo + a t, donde vy es la velocidad inicial, a la 
aceleración, t el tiempo y v la velocidad final.) 


4.20. 


10 
20 
30 
40 
50 
60 
70 


INPUT VO 

INPUT A 

INPUT T 

IFA > 0 AND T > = O THEN GOTO 60 

GOTO 10 

PRINT “LA VELOCIDAD ES : ”; VO + A * T; "M/S" 
END 


Haz un programa que calcule la media de una serie de números orde- 
nados en forma creciente, siendo el último número de la serie el 1,523. 


10 
20 
30 
40 
50 
60 
70 


LETS=0:LETN=0 

INPUT A 

LETS=S+A 

LETN=N+1 

IFA = 1.523 THEN PRINT “LA MEDIA ES : ”; S/N : GOTO 70 
GOTO 20 

END 


Explica lo que hace el siguiente programa: 


10 


INPUT “NOTA” : X 

IF X < 5 THEN GOTO 40 

IF X > = 5 THEN GOTO 50 
PRINT “NO APROBADO” 
PRINT “APROBADO” 
GOTO 10 

END 
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4.22. 


4.23. 


4.24, 


Cuando se introduce una nota numérica si es mayor o igual que 5 se im- 
prime APROBADO. 


Si la nota es menor que 5 se imprime NO APROBADO y a continuación 
APROBADO. 


Para evitar que se imprima esta segunda frase basta añadir la instrucción 
45 GOTO 10. 


Escribe un programa que lea el salario mensual de un conjunto de per- 
sonas, y cuando encuentre un salario superior a 200.000 pesetas, pare la 
ejecución, pero de tal manera que permita continuarla cuando se desee. 


10 INPUT “INTRODUZCA EL SALARIO MENSUAL ”; S 
20 IFS > 200000 GOTO 40 

30 GOTO 10 

40 END 


Explica cómo funciona el siguiente programa y qué es lo que hace. 


10 LETX=0 

20 LETX=X+ 10 

30 IF X > 100 THEN GOTO 60 
40 PRINTX 

50 GOTO 20 

60 END 


— Escribe los múltiplos de 10 hasta 100. 

— En la instrucción 10 se asigna la variable X el valor O. En la instrucción 
20 X se aumenta en 10 unidades. 

— En la instrucción 30 si el valor de X es superior a 100 se detiene la eje- 
cución del programa. Si es menor que 100 se imprime el valor de X y 
se transfiere después el control a la instrucción 20. 


Escribe un programa similar al anterior que imprima los múltiplos de 5 
comprendidos entre 1535 y 1640, excluidos estos números. 


5 REM MULTIPLOS DE 5 COMPRENDIDOS ENTRE 1535 y 1640 
10 LETX = 1535 
20 LETX=X+5 
30 IFX = 1640 THEN GOTO 60 
40 PRINTX 
50 GOTO 20 
60 END 
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4.25. Hacer un programa que averigúe si un número es par o impar. 


4.26. 


4.27. 


1 
10 
20 
30 
40 
50 
60 
70 
80 
90 


REM NUMERO PAR O IMPAR 


INPUT X 
LETN =0 
LETN=N+1 


IF X = 2 * N THEN GOTO 80 
IFX > 2 * N THEN GOTO 30 
PRINT X, “ES IMPAR” 

GOTO 90 

PRINT X, “ES PAR” 

END 


Explica cómo funciona el siguiente programa y lo que hace. 


10 
20 
30 
40 
50 
60 
70 


LET A = 32 

LETA=A+3 

IFA < 51 AND A > 29 THEN GOTO 50 
STOP 

PRINT A 

GOTO 20 

END 


— Imprime los números 35, 38, 41, 44, 47 y 50. 

— En la instrucción 10 LET A = 32, A toma el valor 32. 

— La instrucción 20 aumenta en tres unidades el valor de la variable A. 

— Si A es menor que 51 y A mayor que 29 (lo que siempre ocurre ya que 
inicialmente A vale 32) se transfiere el control a la instrucción 50 que 
imprime el valor de A. 

— La instrucción 60 transfiere de nuevo el control a 20 que inicia de 
nuevo el proceso. 


Escribe un programa que introduzca números sucesivamente, averigúe 
cuál es el mayor de los introducidos hasta el momento y dé el informe co- 
rrespondiente. 


1 
10 
20 
30 
40 
50 
60 
70 


REM MAYOR HASTA EL MOMENTO 
INPUT X 

PRINT “EL MAYOR ES”, X 

INPUT Y 

IF Y < = X THEN GOTO 20 

LETX = Y 

GOTO 20 

END 
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4.28. Modifica el programa anterior de tal manera que escriba en una columna 
el número introducido y en otra, el mayor introducido hasta el momento. 
Como cabeceras de ambas columnas deberá escribir 


1 
10 
20 
30 
40 
50 
60 
70 
80 


NUMERO EL MAYOR 


REM EL MAYOR HASTA EL MOMENTO 
PRINT “NUMERO”, “EL MAYOR” 
INPUT Y 

LETX =*Y 

PRINT Y, X 

INPUT Y 

IF Y < = X THEN GOTO 40 

GOTO 30 

END 


4.29. Dados cuatro números A, B, C y D, escribir un programa que haga | = 1 
si los cuatro son iguales; | = 2 si de los cuatro, tres son iguales; | = 3 si 
dos son iguales; | = 4 si son iguales dos a dos; e | = 5 si todos son dife- 


rentes. 


1 
10 
20 
30 


40 
50 


60 
70 


REM CLASIFICADOR DE NUMEROS 

INPUT A, B, C, D 

IFA =B ANDA = CANDA = DTHENLET | = 1: PRINT | 

IF (A = B AND (A = CORA = D)) OR (C = D AND (C = A OR 
C = B)) THEN LET | = 2 : PRINT 1 
IFA=BORA=CORA=DORB=CTHENLETI|=3: 
PRINT | 

IF (A = B AND C = D) OR (A = C AND B = D) OR (A = D 
AND B = C) THEN LET | = 4 : PRINT 1 

IFA <> AND A <> CAND A <> D THEN | = 5 : PRINT 
END 
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5 Datos de un programa 


Programas resueltos con READ, DATA y RESTORE 


RESUMEN DE LAS INSTRUCCIONES 


READ-DATA 


La instrucción READ lee y asigna a variables los datos contenidos en 
una o más instrucciones DATA. 


y 


Ejemplos 
e Al ejecutarse las instrucciones 


10 DATA 22, 30, 70.8 
20 READA, B 
30 READC 


los datos contenidos en la instrucción 10 se asignan a las variables numéricas 
A, B y C, respectivamente. 


e Al ejecutarse las instrucciones 


10 READA, B 
20 READ C 
100 DATA 8.9, 3 
110 DATA 5 


los datos contenidos en la instrucción 100 (8.9 y 3) se asignan a las variables A 
y B, respectivamente. El dato contenido en la instrucción 110, el número 5, se 
asigna a la variable C. 


Observaciones 


e La posición de la instrucción READ en un programa es importante, en cambio, 
las instrucciones DATA pueden colocarse en cualquier lugar del mismo. 
Cuando el microordenador encuentra una instrucción READ lee el dato si- 
guiente al último que se leyó anteriormente, independientemente de la posi- 
ción que ocupen las instrucciones DATA en el programa. 
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e Si se intentan leer más datos que los contenidos en las instrucciones DATA se 
produce un mensaje de error. 


RESTORE 
Esta instrucción permite volver a leer un conjunto de datos. 


y 


Ejemplo 
Al ejecutarse las instrucciones 


10 DATA 22, 30, 70.8 
20 READA, B 

30 READ C 

40 RESTORE 

50 READ D, E 

60 READ F 


se asignan los valores 22, 30 y 70.8 a las variables A, B y C en primer lugar, y 
después a las variables D, E y F. 


Si no estuviera la instrucción 40 aparecería en la pantalla un mensaje de error en 
la instrucción 50, al intentar leer datos y no disponer de ellos en instrucciones 
DATA. 


PROGRAMAS RESUELTOS EXPLICADOS ooo 


5.1. ¿Qué datos no se leerán al ejecutar el siguiente programa? 


10 READA, B, € 
20 PRINT B 

30 READX, Y 
40 PRINT A, Y 
50 READ U, V, W, L 
60 DATA 1.1, 1.2, 1.3, 1. 
70 DATA 2,3, 3.3, 3.7, 4. 
80 DATA -2.3, -4,5 
90 END 


Puesto que en las dos instrucciones en las que se manda leer (30 
READ X, Y y 50 READ U, V, W, L) hay cinco variables, se leen los 
cinco primeros datos y quedan sin leer 3.3, 3.7, 4.8, 5.9, 7.3, 
— Ln BD 
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5.2. 


$3. 


5.4. 


Elabora un programa que compare un número con la siguiente se- 
rie de datos: 1, 3, 5, 7 y 9, dé un informe afirmativo en el caso de 
que el número introducido coincida con alguno de la serie y dé un 
mensaje de error, a la falta de datos, en caso de que no coincida. 


10 LETN=0 

20 INPUT X 

30 READ Y 

40 IF X= Y THEN PRINT “COINCIDE” : GOTO 80 
50 LETN=N+1 

60 IFN < 5 THEN GOTO 30 

70 PRINT “NO COINCIDE” 

80 END 
100 DATA 1, 3,5, 7,9 


— En la instrucción 40 el número que se ha asignado a X en la 
instrucción 20 se compara con el leído en la instrucción 30, es- 
cribiendo el mensaje COINCIDE cuando así ocurre, transfiriendo 
a continuación el control al fin del programa. 

— En la instrucción 50 la variable aumenta en una unidad. 

— La instrucción 60 hace que se repita el proceso siempre que el 
valor de N sea menor que 5 (número de datos disponible). 


Escribe un programa que contenga una instrucción DATA con los 
diez primeros números enteros positivos y —1 en último lugar. Di- 
cho programa deberá ir sumando los diez primeros números y 
cuando lea —1 imprimirá la suma; a continuación que detenga la 
ejecución. 

10 LETS=0 

20 READA 

30 IFA = —1 THEN GOTO 60 

40 LETS=S+A 

50 GOTO 20 

60 PRINTS 

70 END 

100 DATAO, 1,2,3,4,5,6,7,8, 9, -1 
En la variable S (definida en la instrucción 10) se van acumulando 


los distintos números leídos (instrucción 40). Cuando el número 
leído es —1, se imprime la suma. 


¿Por qué razón en el siguiente programa las instrucciones READ se 
comienzan a leer siempre por el primer dato, sin seguir el orden se- 
cuencial? 


10 READ A 
20 RESTORE 
30 READ H, |, ) 
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3.9. 


40 RESTORE 

50 READ X, Y 

60 DATA 2, -3, 4, -5, 2.3, 7 
70 END 


Se debe a la presencia de la instrucción RESTORE en las instruc- 
ciones 20 y 40 que desplazan un hipotético indicador de lectura 
hacia el primer dato contenido en la instrucción DATA. 


Añade instrucciones RESTORE al siguiente programa para que no 
se interrumpa su ejecución por falta de datos. 


10 READ X, Y 
20 PRINTX, Y 

30 READA, B, C 
40 PRINT (A * B)/C 
50 READ L, M 

60 PRINTL? M 
70 DATA4,7,2 

80 END 


10 READ X, Y 
20 PRINT X, Y 
25 RESTORE 
30 READA, B, € 
40 PRINT (A * B)/C 
45 RESTORE 
50 READ L, M 
60 PRINTL M 
70 DATA 4,7, 2 
80 END 

Las instrucciones 25 y 45 permiten que las instrucciones READ ten- 


gan datos suficientes ya que trasladan la lectura al primer dato 
contenido en la instrucción 70. 


o PROGRAMAS RESUELTOS sas 


3.1, 


Las siguientes instrucciones contienen errores. Identifícalos. 
a) 30 READ X, 30 

b) 10 READ X, Y; Z 

c) 40 DATA 5, 6, 7.5, X, 3.4 

d) 70 DATA 3, 4; 5 
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5.2. 


a) La instrucción es incorrecta por contener el número 30, que no es una 
variable. 

b) La instrucción es incorrecta porque entre las variables Y y Z hay un 
punto y coma en lugar de una coma. 

c) Es incorrecta, pues una variable como X no puede estar incluida en 
una instrucción DATA. 

d) Es incorrecta, puesto que los datos deben estar separados por comas, 
y entre 4 y 5 hay un punto y coma. 


Un programa contiene las siguientes instrucciones: 
30 READA, B, C 


60 RESTORE 
70 READ W, X, Y, Z 


200 DATA 1, 3,5, 7,9, 11, 13 


¿Qué valores se asignan a cada variable? ¿Qué valores se les asignarían si 
no estuviese la instrucción 60 RESTORE? 


Los valores que se asignan son: 


MN wy> 
IA 
un Uy — 


Y como aparece la instrucción RESTORE se vuelven a asignar datos desde 
el principio, según se indica: 


N=<x< 
Momo 


Y Un UY — 


Si se suprime la instrucción 60 RESTORE la asignación es ésta: 


NXXS<S0Mw y» 
II] 
= =0 JUU —= 


UU — 
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5.3. Escribe las instrucciones READ y DATA que asignan los valores —1.6 E-6, 
500, 0.4077, 100, 110 a las variables (1, C2, (3, C4, C5. 


10 
20 


READ C1, C2, (3, C4, C5 
DATA -1.6 E -6, -500, 0.4077, 100, 110 


5.4. ¿Qué imprimiría en la pantalla el microordenador al ejecutar este pro- 


grama? 


10 
20 
30 
40 
50 
60 


READ A, B 

PRINT A, B 

READ C 

PRINTA + B + C 
DATA 2, 7 

END 


2 7 
OUT OF DATA IN 30 


y al intentar leer la variable C, daría un error por falta de datos. 


5.5. ¿Qué valores imprimirá el siguiente programa al ejecutarse? 


10 
20 
30 
40 
50 


READ X 

PRINT X 

IF X <> 3 THEN GOTO 10 
DATA 7, 6,5,4,3, 2, 1 
END 


Imprimirá los números 7, 6, 5, 4 y al leer 3, se detendrá el programa. 


5.6. Diseña un programa que contenga en una instrucción DATA los números 
primos 2, 3, 5, 7, 11, 13, 19 y 23, y que al introducir un número positivo 
menor que 25 imprima si es primo o no. 


10 
20 
30 
40 
50 


LETN =0 

INPUT “INTRODUCE UN NUMERO”; A 
IFA<O0ORA > 25 THEN GOTO 20 

READ X 

IF A = X THEN PRINT “ES PRIMO” : GOTO 90 
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dl 


5.8. 


60 LETN=N+1 

70 IFN <= 9 THEN GOTO 40 

80 PRINT “NO ES PRIMO” 

90 END 

100 DATA 2, 3, 5, 7, 11, 13, 17, 18, 23 


Haz un programa que al introducir una cantidad en pesetas dé su equiva- 
lente en libras esterlinas, dólares, marcos, liras y francos. 


El programa almacenará en una instrucción DATA las siguientes equiva- 
lencias: 


1 libra = 210 ptas. 1 lira = 0.09 ptas. 
1 dólar = 170 ptas. 1 franco = 18 ptas. 
1 marco = 57 ptas. 

1 REM CAMBIO 


10 INPUT “INTRODUCE UNA CANTIDAD EN PESETAS ”; P 
20 READA, B,C, D, E 
30 PRINTP/A; ” ”; “LIBRAS” 


40 PRINT P/S; ” ”; “DOLARES” 
50 PRINTP/C; * "; “MARCOS” 
60 PRINTP/D; ” "; “LIRAS” 

70 PRINT P/E; ” ”; “FRANCOS” 
80 END 


100 DATA 210, 170, 57, 0.09, 18 


En un observatorio se han registrado en una semana las siguientes tempe- 
raturas: 


D L M X J V S 
20 22 25 24 23 21 20 


Escribe un programa que introduzca estos datos mediante instrucciones 
READ y DATA, y calcule la temperatura media. 


1 REM MEDIA DE TEMPERATURAS 

10 LETI=0 

20 LETS=0 

30 READ X 

40 LETI=1+1 

50 LETS=S+X 

60 IFI<7THEN GOTO 30 

70 LETS = S/l 

80 PRINT “LA MEDIA ES:”, S 

90 DATA 20, 22, 25, 24, 23, 21, 20 
100 END 
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5.9. En una encuesta, las respuestas afirmativas se registran con 1 y las nega- 
tivas con 2. Se encuesta a 50 personas, estando la última respuesta se- 
guida del valor —1. Escribe un programa que incluya las siguientes instruc- 
ciones DATA y que cuente el número de respuestas afirmativas y 
negativas. 


900 
910 
920 
930 
940 


1 
10 
20 
30 
40 
50 
60 
70 
80 
90 

100 
110 
900 
910 
920 
930 
940 
950 


REM ENCUESTA 

LETS =0 

LETN =0 

READ X 

IFX = — 1 THEN GOTO 100 

IF X = 1 THEN GOTO 80 

LETN=N+ 1 

GOTO 30 

LETS =S+1 

GOTO 30 

PRINT “RESPUESTAS AFIRMATIVAS”, S 
PRINT “RESPUESTAS NEGATIVAS”, N 
DATA 1, 2, 2, 1,2, 2,1, 1, 2, 1 

DATA 2, 


5.10. El siguiente programa muestra cómo se pueden hacer dibujos sencillos con 
las instrucciones BASIC conocidas hasta ahora. 


1 
10 
20 
30 
40 
50 
60 
70 
80 
90 

100 
110 


REM IMPRIME UN DIBUJO 
READ X 

IF X = —1 THEN GOTO 920 
IF X = 1 THEN GOTO 60 

IF X = 2 THEN GOTO 80 

IF X = 3 THEN GOTO 100 
PRINT “*x**xexrxrrrxrx” 
GOTO 10 

PRINT “*xx*" 

GOTO 10 


PRINT “xxx.” 


GOTO 10 
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UY 
uu 
uy 


900 DATA 1,1,1,2,2,2,2,2 
910 DATA 2, 2,2,2,2,1,1, 1 
920 END 


¿Qué letra dibuja este programa? 
Dado el programa: 


1 REM IMPRIME UN DIBUJO 

10 READ X 

20 IFX = —1 THEN GOTO 920 
30 IF X= 1 THEN GOTO 60 

40 IF X= 2 THEN GOTO 80 

50 IFX = 3 THEN GOTO 100 

60 PRINT “*x*x**x*rxrrrrrxr” 
70 GOTO 10 

80 PRINT “*xx*"” 

90 GOTO 10 

100 PRINT “*xx******x*x*" 

110 GOTO 10 
900 DATA 1,1,1,2,2,2,2,2,3, 3,3 
910 DATA2, 2,2, 2,2,1,1,1, -1 
920 END 


-1 


El dibujo que imprime es la letra E. 


5.11. Basándote en el ejercicio anterior, haz un programa que dibuje la letra C 
en la pantalla. 


1 REM IMPRIME LA LETRA C 
10 READ X 
20 IF X= —1 THEN GOTO 920 
30 IF X= 1 THEN GOTO 50 
40 IF X = 2 THEN GOTO 70 


50 PRINT “xx**x*xx*xxixrxr" 
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60 
70 
80 
900 
910 
920 


GOTO 10 
PRINT “x4x" 
GOTO 10 


5.12. Diseña un programa que dibuje una L en la pantalla. 


1 
10 
20 
30 
40 
50 
60 
70 
80 

900 
910 
920 


REM IMPRIME LA LETRA L 
READ X 

IF X = —1 THEN GOTO 920 
IF X = 1 THEN GOTO 50 

IF X = 2 THEN GOTO 70 
PRINT “xxx” 
GOTO 10 

PRINT “xxx” 

GOTO 10 


5.13. Haz un programa que dibuje la letra U en la pantalla. 


1 
10 
20 
30 
40 
50 
60 
70 


80 
900 
910 
920 


REM IMPRIME LA LETRA U 
READ X 

IF X = —1 THEN GOTO 920 
IFX = 1 THEN GOTO 50 

IF X = 2 THEN GOTO 70 
PRINT “xxx” 
GOTO 10 

PRINT “xxx **x 


(espacios en blanco) 
GOTO 10 
DATA2, 2, 2, 2, 2,2, 2, 2,2, 2, 2 
DATA:2,.2,.2,.2,25 1, dy: 1; —1l 
END 
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6 Repetición de procesos: bucles 


Programas resueltos con FOR-NEXT 


RESUMEN DE LAS INSTRUCCIONES 


FOR-NEXT 

Estas instrucciones asociadas permiten repetir varias veces un proceso 
(bucle). 

La primera instrucción bucle es FOR, y la última, NEXT. 


y 


Ejemplos 
e Al ejecutar las instrucciones 


10 FORI|=1T0 30 
20 PRINT “PEPE” 
30 NEXT | 


la variable | toma inicialmente el valor 1 e imprime por primera vez la palabra 
PEPE. Continúa hasta que alcanza la instrucción 30 NEXT |, y como no se ha 
alcanzado el tope establecido (en este caso 30), vuelve a la línea 20. Este pro- 
ceso se repite treinta veces tomando la variable | los valores desde 1 a 30. 


Al ejecutarse el programa 


10 FORI=1T0 30 
20 PRINTI 
30 NEXT | 


los sucesivos valores que va tomando la variable | se imprimen en la pantalla 
del microordenador. 
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e Al ejecutarse las instrucciones 


10 LETF=4 
20 LETA=2 

30 FORI=3x*ATOF 1 2 
40 PRINTI 

50 NEXT! 


los valores de las variables F y A asignados en las instrucciones 10 y 20 se colo- 
can en el bucle. De este modo, el programa imprime en la pantalla los valores 
de | que van desde 3*2=6a4 7 2= 16. 


e Al ejecutarse el programa 


10 FORI=1T04 
20 PRINTI 
30 FORJ=1T06 
40 PRINTJ 
50 NEXT J 
60 NEXT | 


que consta de un bucle incluido en otro (bucles anidados), en la pantalla se 
imprimen para cada valor de | (desde 1 a 4) los valores que toma la variable J 
(de 1 a 6). 


Observaciones 
e La estructura de los bucles anidados debe ser ésta: 


FOR | = 
FOR ) = 
[FOR K= 
NEXT K 
—— NEXT J 
NEXT | 


No está permitida la estructura de bucles cruzados: 


FOR | = 
FOR J = 
NEXT | 
NEXT J 


e No se puede entrar en un bucle sin pasar por la instrucción FOR. Así, este pro- 
grama no es correcto. 


10 FORI|I=1T0 20 
20 PRINTI 

30 NEXT | 

40 GOTO 20 

50 END 
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Sin embargo, sí se puede salir de él en cualquier momento. Así, este otro pro- 
grama sí es correcto. 


10- FOR | = 1T0 15 

20 IF | = 3 THEN GOTO 40 
30 NEXT! 

40 PRINTI 

50 END 


STEP 


La palabra STEP añadida a la instrucción FOR permite incrementar la 
variable con valores distintos de 1. 


y 


Ejemplos 
e Al ejecutar la instrucción 
10 FORI=0TO 30 STEP 2 


el valor de | varía desde O hasta 30 en pasos de 2. Es decir, adquiere sucesiva- 
mente los valores 0, 2, 4, 6 ... 30. 


e Al ejecutar la instrucción 
10 FOR!I= 20T0O O STEP -2 


la variable | toma valores de 20 a O en pasos de —2; es decir, adquiere sucesi- 
vamente los valores 20, 18, 16, ..., 0. 


e Al ejecutar la instrucción 
10 FORI= 1 TO 3 STEP 0.5 


la variable toma valores de 1 a 3 en pasos de 0.5; es decir, adquiere sucesiva- 
mente los valores 1, 1.5, 2, 2.5, 3. 


PROGRAMAS RESUELTOS EXPLICADOS ooo 


6.1. Indica qué escribiría en la pantalla el siguiente programa: 


10 FORN=1T06 

20 PRINT “LA RAIZ CUADRADA DE”; N; “ES”; SQR(N) 
30 NEXT N 

40 END 
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LA RAIZ CUADRADA DE 
LA RAIZ CUADRADA DE 
LA RAIZ CUADRADA DE 
LA RAIZ CUADRADA DE 
LA RAIZ CUADRADA DE .236068 


LA RAIZ CUADRADA DE 2.449490 


La variable N toma valores de 1 hasta 6 y para cada uno de ellos 
se Calcula y se imprime la raíz cuadrada. 


6.2. Escribe un programa que imprima en la pantalla 


1. VEO LA VIDA CON OPTIMISMO 
2. VEO LA VIDA CON OPTIMISMO 


15. VEO LA VIDA CON OPTIMISMO 


10 FORI!=1T0 15 
20 PRINTI; ”.”; ” ”; “VEO LA VIDA CON OPTIMISMO” 
30 NEXT | 


Para cada valor de | se imprime el valor de esta variable seguido de un 
punto, y de un espacio. A continuación se escribe la frase que está en- 
tre comillas. 


6.3. Haz un programa que confeccione una tabla de las raíces cua- 
dradas de los números comprendidos entre 100 y 112, ambos in- 
clusive, con la siguiente cabecera: 


NUMERO RAIZ CUADRADA 


10 PRINT “NUMERO”, “RAIZ CUADRADA” 
20 FOR!= 100 TO 112 

30 PRINT l, SQR(I) 

40 NEXT | 

50 END 


— La instrucción 10 imprime las dos frases que hacen de cabe- 
cera en dos zonas de la pantalla ya que están separadas por 
una coma. ! 

— Para cada valor que toma la variable | del buele se imprime di- 
cho valor y su raíz cuadrada, cada una en una zona de la pan- 
talla. 
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6.4. Elabora un programa que imprima los 25 primeros números pares. 


10 FOR|=O0TO 50 STEP 2 

20 PRINT 1, 

30 NEXT | 

40 END 
Los 25 primeros números naturales pares se consiguen imprimiendo la 
variable | que controla al bucle, y que varía entre O y 50 en pasos de 
dos unidades. 


6.5. Indica qué imprime en la pantalla el siguiente programa: 


10 FORL= 12 T0 30 STEP 3 
20 PRINT L; 

30 NEXTL 

40 END 


Imprime en la pantalla los distintos valores que toma | pero 


juntos, ya que la instrucción 20 PRINT L; termina con un punto y 
coma. 


run 


12 5 18 21 24 27 30 


6.6. Escribe un programa que imprima en la pantalla los múltiplos de 5 
comprendidos entre 100 y 150. 


10 FORI=20T0 30 

20 PRINTS +! 

30 NEXT | 

40 END 
La variable | toma valores entre 20 y 50, que multiplicados por 
5 dan los múltiplos de este número entre 100 (5 x 20) y 150 
(5 x 30). 
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6.7. Elabora un programa que escriba en la pantalla los treinta pri- 
meros números impares negativos. 


10 FOR|= -—1TO —61 STEP -2 
20 PRINTI 

30 NEXT | 

40 END 


La variable | va tomando los valores —1, —3, —5, etc., hasta llegar a 
—61, que es el número impar negativo que ocupa el lugar 30. 


6.8. Escribe los resultados que imprimiría el siguiente programa si 
fuera ejecutado. 


10 LETA = -4 

20 LETB=5 

30 FORR=A+BTOA * BSTEP -2 
40 PRINTR,R 1 3 


50 NEXTR 

60 END 
Como A = —4 y B =5, la variable R puede variar desde A + B = 
= (-4 + 5) = 1 hasta A x B (4 * (-5)) = — 20, en pasos de 
=2; 


Así, en la pantalla aparecerán los números desde 1 a —19 y sus 
correspondientes cubos, ocupando ambos números dos zonas dis- 
tintas de la pantalla, ya que entre Ry R f 3 hay una coma. 


6.9. Escribe lo que imprimiría el siguiente programa al ser ejecutado: 


10 FORJ=1T0O4 
20 FORK=1T02 
30 PRINTJ; ”,”; K, 
40 NEXT K 

50 NEXT) 

60 END 
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6.10. 


Observación: Advertir el diferente significado de las dos comas en 
la instrucción 30: la coma entre comillas se imprime a continua- 
ción del valor de J y la coma no entrecomillada significa que el si- 
guiente valor del par J, K se imprime en la segunda zona de la 
pantalla. 


Para cada valor de la variable J (que varía entre 1 y 4), la variable 
K toma los valores 1 y 2. Cada valor de | y los correspondientes 
de J se imprimen separados por comas en zonas distintas de la 
pantalla. 


Haz un programa que escriba en la pantalla los siguientes pares 
de valores y en la disposición que se indica. 


10 FORI= 
20 FORJ= 
30 PRINTI;“,”;)J 
40 NEXT) 
50 NEXT | 
60 END 

Al no existir una coma detrás de la J, en la instrucción 30 (como 


en el programa anterior), la impresión de cada valor de | acompa- 
ñado de cada valor de J se hace en líneas distintas. 


Elabora un programa que imprima la siguiente tabla. (Suponer 
una pantalla de dos zonas.) 
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6.12. 


6.13. 


10 FORJ=1TO5 
20 FORK=1T02 
30 PRINTJ; ”,”; K, 
40 NEXT K 

50 NEXT J 

60 END 


El programa es muy semejante al 6.9, salvo que la variable ) 
puede tomar más valores, hasta 5 inclusive. 


Escribe un programa que genere el producto cartesiano de los 
conjuntos: 

A = (1,2, ..., 10) 

B = (1,2, ..., 5) 


Es decir, el programa deberá generar los pares 


111 12 13 14 15 
21 22 23 2/4 2/5 


10,1 102 1033 1014 10,5 


10 FORI=1T0 10 
20 FORJ=1TO5 

30 PRINTI;*,;J;% *; 
40 NEXT) 

50 PRINT 

60 NEXT | 

70 END 


En el bucle interior, la variable J varía de 1 a 5, para cada valor de 
| (de 1 a 10). 


Después de cada valor de J se deja un espacio en blanco. 


La instrucción 50 PRINT hace que después de cada valor de | se 
salte una línea. 


Escribe un programa que imprima los resultados posibles que se 
obtienen al lanzar dos dados. (Algunos resultados posibles son: 
1,1; 1,6; 2,3; 5,6; 6,6; etcétera.) 

10 FORI=1T06 

20 FORJ=1TO6 

30 PRINTI; ”,”;J, 

40 NEXT) 

50 NEXT | 

60 END 
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Este programa es muy semejante al anterior. Genera el producto 
cartesiano de los conjuntos A = (1, 2,3,4,5,6) yB = (1, 2, 3, 
4,5, 6) 


6.14. Elabora un programa que genere las tablas de multiplicar del 1, 
Le Or 
10 FORI|=1T0 10 
20 FORJ=1T010 
30 PRINTI;%*";J;%=";1xJ 
40 NEXT) 
50 NEXT | 
60 END 


En la pantalla van apareciendo los resultados. 


=1 
=2 
=3 
=4 


6.1. Analiza los dos programas siguientes. ¿Qué imprimen en la pantalla? Ob- 
tén una conclusión. 


10 LETF=1 

20 IFF> 8 THEN GOTO 99 10 FORF=1T08 
30 PRINT “F="; F 20 PRINT“F=";F 
40 LETF=F+1 30 NEXT F 

50 GOTO 20 99 END 

99 END 
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El primero imprimirá: 


nn... 2... 
O II 
00 Y MM U a UY NN — 


El segundo imprimirá: 


II O A 
00 Y Mi UI Uy NN — 


F 
F 
F 
F 
F 
F 
F 
F 


Luego el resultado es el mismo. 


6.2. Escribe lo que imprime en la pantalla el siguiente programa, al ser ejecu- 
tado: 


10 LETX=0 

20 FORK=1T04 
30 LETX=X+K 
40 NEXT K 

50 PRINT X 

60 END 


La suma de los cuatro primeros números naturales 1, 2, 3 y 4. 
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6.3. Haz un programa que produzca los mismos resultados en la pantalla que 
el anterior, sin utilizar las instrucciones FOR - NEXT. 


10 LETX=0:LETK-= 1 
20 LETX=X+K 

30 LETK=K+1 

40 IF K< 5 THEN GOTO 20 
50 PRINT X 

60 END 


6.4. ¿Qué imprimirá en la pantalla el siguiente programa? 


10 LETP=1 

20 FORK=1T04 
30 LETP=Px*K 
40 NEXT K 

50 PRINTP 

60 END 


El producto de los cuatro primeros números naturales 1, 2, 3 y 4. 


6.5. Analiza el siguiente programa y escribe lo que imprime en la pantalla: 


10 LETN=1 

20 FORK =1TON 

30 PRINT “x*" 

40 PRINT 

50 NEXT K 

60 LETN=N+1 

70 IFN > 10 THEN GOTO 90 
80 GOTO 20 

90 END 
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XK A A AC CAC 


6.6. 


6.7. 


6.8. 


Imprime diez asteriscos separados por líneas en blanco. 


¿Qué imprime el siguiente programa? 


10 LETS=0 

20 FORK= 1T0 7 STEP 2 
30 LETS=S+K 

40 NEXT K 

50 PRINTS 

60 END 


Imprime la suma de los números 1, 3, 5 y 7, que es 16. 
¿Son correctos los programas que incluyen las siguientes instrucciones? 
a) 20 FORI= 1 TO 100 STEP 2 b) 50 FORN=N1TON2 


120 IFN = 10 THEN GOTO 75 


a) No es correcto, ya que la instrucción 80 NEXT J es incorrecta, ya que 
la variable del bucle es |. La instrucción correcta es 80 NEXT 1. 


b) No es correcto debido a que por medio de la instrucción 120 se entra 
en el bucle 50 — 90 sin pasar por la primera instrucción de dicho bucle. 


Analiza los siguientes programas e indica si son correctos: 
a) 100 FOR K = 3 TO -3 STEP -1 b) 25 FORX= 1TO 2 STEP 0.05 


130 PRINTX 7 K 50 FOR Y = 1 TO 10 STEP 0.1 

re cria a O 

100 END a 
100 NEXT Y 
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6.9. 


FOR|=1TOM d) 10 FORA =5T0 10 
iia 20 FORB=1T03 
A. A 
a 60 NEXT B 
FORK =1TOM+N 70 NEXTA 
NEXT K 100 FORB=1TO4 
ia 110 FORA =4T0 10 
A 
nan 140 NEXT B 
e NN a 
A 180 NEXT A 
¿NS 
235 FORK=1TOM+N 
240 NEXT K 
250 NEXT | 


a) Es correcto. (En algunos microordenadores es necesario dar algún va- 
lor a la variable X, antes de operar con ella.) 


b) No es correcto, debido a que los bucles no están uno dentro del otro. 


c) Es correcto pues los bucles están bien anidados. 


d) Es incorrecto pues la instrucción 140 debería ser 140 NEXT A y la 
180, 180 NEXT B, para que los bucles estuvieran bien anidados. 


Escribe un programa que calcule e imprima la suma de los números en- 
teros comprendidos entre 1 y N, ambos inclusive, siendo N un valor que se 
introduce mediante una instrucción INPUT. 


1 
10 
20 
30 
40 
50 
60 
70 


REM SUMA DE LOS N PRIMEROS NUMEROS ENTEROS 
S=0 

INPUT N 

FOR | =1TON 

LETS =5+] 

NEXT | 

PRINTS 

END 
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6.10. 


6.11. 


6.12. 


6.13. 


Escribe un programa que confeccione una tabla de las raíces quintas de 
los números comprendidos entre 1 y 2, en intervalos de 0.1. 


1 REM RAICES QUINTAS 
10 R=0 

20 FORI=1T0 2 STEP 0.1 
30 LETR=14 (1/5) 

40 PRINTR 

50 NEXT 1 

60 END 


Haz un programa que calcule la suma 
124224324... +99 


10 LETS=0 

20 FORI=1T0 99 
30 LETS=S+172 
40 NEXT | 

50 PRINTS 

60 END 


Escribe un programa que calcule la media aritmética de una lista de N nú- 
meros utilizando una instrucción INPUT para introducir N y después un 
bucle FOR - NEXT en el que esté incluida otra instrucción INPUT o una 
READ para introducir cada número. 


10 LETS=0 

20 INPUT N 

30 FORI|I=1TON 

40 INPUTA 

50 LETS=S+A 

60 NEXT! 

70 PRINT “LA MEDIA ES:”; S/N 
80 END 


En lugar de la instrucción 40 podría utilizarse 40 READ A, añadiendo las 
instrucciones DATA necesarias. 


Elabora un programa que calcule el producto de los N primeros números 
naturales, sin contar el cero. (Observación: El producto aludido en este 
enunciado se llama factorial de N y suele simbolizarse así: N!. Por ejemplo, 
el producto 1* 2 + 3*4x*5x*6* 7 se llama factorial de 7 y se indica 
por 7!.) 
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REM PRODUCTO DE LOS N PRIMEROS NUMEROS 
INPUT N 

LETP =1 

FOR|=1TON 

LETP=Px] 

NEXT | 

PRINT “EL FACTORIAL DE”; N; “ES”; P 

END 
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/ Cadenas 


Programas resueltos con LEN, VAL, STR$, LEFTS, 
RIGHT$ y MID$ 


RESUMEN DE LAS INSTRUCCIONES 


CADENAS DE CARACTERES 


Una cadena es una sucesión de letras, números y cualquier otro síim- 
bolo gráfico. . 


Las cadenas se escriben entre comillas, para indicar el principio y el 
fin de las mismas. 


Ejemplos 
e '"A3227 
e “LOPEZ” 


Este último ejemplo también es una cadena, pues el espacio en blanco tam- 
bién se considera como carácter. 


e “CARMEN” 
e "EN CIERTO LUGAR DE LA MANCHA” 
"323" 


Una secuencia de dígitos dispuestos entre comillas constituye una cadena, y no 
un número. 


Observación 


Así como los números se guardan en variables numéricas, las cadenas se guardan 
en variables de cadena o alfanuméricas. Se distinguen de las numéricas en que su 
nombre termina con el símbolo $. Ejemplos: A$, X$, 235. 
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SÍMBOLOS >, <, <>, = 
Con la ayuda de estos símbolos puede compararse cadenas. 


y 


Ejemplos 
e "NABUCODONOSOR” <> “LOPEZ” 

La cadena primera es distinta a la segunda. 
e A$5 = “LOPEZ” 
La variable de cadena A$ es igual a LOPEZ. 
“LOPEZ” < "PEREZ" 


“LOPEZ” es anterior a “PEREZ” en el orden alfabético, pues la letra L es ante- 
rior a la P. 


“SASTRE” > "SANCHEZ" 

La comparación de cadenas se hace carácter a carácter, de izquierda a dere- 
cha. Luego, como el tercer carácter de la primera cadena (5) es posterior al ter- 
cero de la segunda cadena, la primera cadena es posterior a la segunda. 

e "AI" <"A2” 

Si las cadenas contienen cifras, en la comparación se tiene en cuenta el orden 
numérico. De ahí que "A1” sea anterior a “A2”. 


OPERACIÓN + 


Dos o más cadenas se pueden sumar o concatenar, y así formar una 
más larga. Esta operación se indica con el signo +. 


Ejemplos 
e Después de ejecutarse esta instrucción 
10 LET C$ = “CARMEN” + “PEREZ” 
la variable C$ almacena la cadena "CARMEN PEREZ”. 
e Al terminar de ejecutarse este programa 


10 LET AS = “LA VIDA ES” 
20 LETB$=" " 

30 LETC$ = “HERMOSA” 
40 LETD$ = A$ + B$ + C$ 


la variable D$ guarda la cadena “LA VIDA ES HERMOSA”. 
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LEN 


Esta función da el número de caracteres contenido en una determi- 
nada cadena. 


y 


Ejemplo 
Al ejecutar estas dos instrucciones 


10 LETA$ = “"NABUCODONOSOR” 
20 PRINT LEN (AS) 


se imprime en la pantalla el número 12, número de caracteres de la palabra con- 
tenida en A$. 


VAL 
Esta función convierte una cadena numérica en un número. 


y 


Ejemplo 
Al ejecutarse este programa 


10 LETAS$= "30" 
20 LET X= VAL (A$) 
30 PRINT X 


se imprime en pantalla el contenido de la variable numérica X, que es 30. 
Inicialmente, “30” era una cadena que se almacenaba en la variable de cadena 


STR$ 
La función STR$ convierte un número en cadena de caracteres. 


Ejemplo 
Después de ejecutarse este programa 


10 LETX= 12310 
20 LET X$ = STR$ (X) 
30 PRINT X$ 
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se imprime en la pantalla el contenido de la variable de cadena IX formada por 
un conjunto de caracteres que inicialmente constituían un número que se almace- 
naba en la variable numérica. 


LEFT$ 
Esta función extrae los primeros caracteres de una cadena. 


y 


Ejemplo 


10 LET AS = “CIRCUNSTANCIA” 
20 PRINT LEFTS (AS, 4) 


La instrucción 10 asigna a A$ la cadena “CIRCUNSTANCIA” y la 20 imprime en la 
pantalla los cuatro primeros caracteres de la cadena A$; es decir, imprime CIRC. 


RIGHT$ 
La función RIGHT extrae los últimos caracteres de la cadena A$. 


y 


Ejemplo 


10 LET AS = “CIRCUNSTANCIA” 
20 PRINT RIGHTS (A$, 3) 


La instrucción 20 imprime en la pantalla los tres últimos caracteres de la cadena 
A$; es decir, imprime CIA. 


MID$ 


Extrae un cierto número de caracteres de una cadena a partir de una 
posición. 


Ejemplo 


10 LETA$ = “CIRCUNSTANCIA” 
20 PRINT MID$ (AS, 2, 3) 


La instrucción 20 imprime en la pantalla tres caracteres a partir del que ocupa la 
posición 2; es decir, imprime IRC. 
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TO 


Mediante la palabra TO, algunos microordenadores extraen los ca- 
racteres comprendidos entre dos determinados. 


y 


Ejemplos 


10 LETA$ = “CIRCUNSTANCIA” 
20 PRINT AS (2 TO 5) 


La instrucción 20 imprime en la pantalla desde el carácter 2 al carácter 5 de la 
cadena A$; es decir, imprime IRCUN. 

10 LETA$ = “CIRCUNSTANCIA” 

20 PRINT A$ (2 TO) 

La instrucción 20 imprime desde el carácter 2 hasta el final de la cadena; es 
decir, imprime CIRCUNSTANCIA. 

10 LETA$ = “CIRCUNSTANCIA” 

20 PRINT A$ (TO 5) 

La instrucción 20 imprime los caracteres de la cadena A$ comprendidos entre 
el primero y el quinto, ambos inclusive; es decir, imprime CIRCU, 

10 LETA$ = “CIRCUNSTANCIA” 

20 PRINT A$ (6 TO 6) 


La instrucción 20 imprime en la pantalla el carácter sexto de la cadena Af; es 
decir, imprime la N. 


RESUMEN DE OTRAS INSTRUCCIONES 


CLS 
Esta instrucción borra la pantalla del microordenador. 


Ejemplo 


Al ejecutarse este programa 


10 PRINT “UN ROBOT TAMBIEN TIENE CORAZONCITO” 
20 CLS 


en la pantalla aparece muy brevemente la frase escrita en la instrucción 10, ya 
que enseguida la borra la instrucción 20. 
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PAUSE O WAIT 


Estas instrucciones detienen la ejecución del programa y retienen la 
imagen de la pantalla un cierto tiempo. 


y 


Ejemplo 
10 PRINT “UN ROBOT TIENE SU CORAZONCITO” 
20 PAUSE 20 
30 CLS 


La instrucción 20 detiene la imagen un breve tiempo y la instrucción 30 borra di- 
cha imagen. 


Observación 


Algunos microordenadores disponen de la instrucción PAUSE, otros disponen de 
WAIT y otros carecen de esta instrucción. 


En estos últimos, para conseguir los mismos efectos, se puede utilizar un bucle 
como el siguiente (bucle de retardo): 


10 FORI|= 1 TO 1000 
20 NEXT | 


El tiempo de espera depende del valor tope del bucle; en este ejemplo, el tope es 
1000, que produce un tiempo de espera de aproximadamente dos segundos. 


PROGRAMAS RESUELTOS EXPLICADOS” ooo 


7.1. Si al ejecutar este programa introduces tu nombre, ¿qué obten- 
drás en la pantalla? 
10 INPUT “NOMBRE”; A$ 
20 FORI=1T0 10 
30 PRINT “EL ALUMNO”; A$; “ES UN GRAN PROGRAMADOR" 
40 NEXT! 
50 END 


Si se introduce, por ejemplo, el nombre LUIS, escribirá 10 veces 
este comentario: 


EL ALUMNOLUISES UN GRAN PROGRAMADOR 
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7.2. 


7.3. 


7.4. 


Para evitar que el nombre del alumno salga unido a las palabras 
ALUMNO y ES puede modificarse la instrucción 30, escribiéndola 
así: 

30 PRINT “EL ALUMNO”; A$; “ES UN GRAN PROGRAMADOR” 


Haz un programa que lea el nombre y los apellidos de una per- 
sona y los imprima infinitas veces. 


10 INPUT “NOMBRE”; N$ 
20 INPUT “APELLIDOS”; A$ 
30 PRINTN$; ” ”; AS 

40 GOTO 30 

50 END 


Una vez introducidos el nombre y los apellidos, la instrucción 30 
los imprime separados por un espacio en blanco. 


La instrucción 40 envía el control a la 30, lo que hace que el pro- 
ceso se repita indefinidamente. 


Escribe un programa que lea los días de la semana en una instruc- 
ción DATA y los imprima seguidos, dejando un espacio en blanco 
entre cada dos nombres. 


10 FOR|=1T07 

20 READ D$ 

30 PRINTD$;” ”; 

40 NEXT | 

50 END 

100 DATA LUNES, MARTES, MIERCOLES, JUEVES, VIERNES, 
SABADO, DOMINGO 


El proceso de lectura se repite 7 veces, imprimiéndose en cada 
una de ellas un día de la semana y un espacio en blanco. El punto 
y coma al final de la instrucción 30 hace que el nombre de cada 
día se imprima a continuación de un espacio en blanco. 


¿Qué imprime en la pantalla el siguiente programa si cuando se 
ejecuta se introduce una palabra? 


10 INPUT A$ 

20 LETXS="***" + AS + "900" 
30 PRINT X$ 

40 END 


Si al ejecutarse la instrucción 10 INPUT A$ se introduce, por 
ejemplo, la cadena FELICIDAD, en la pantalla aparece la palabra 
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FELICIDAD precedida de tres asteriscos y seguida también de tres 
asteriscos, ya que la cadena A$ se concatena con tres asteriscos 
por delante y tres por detrás. 


*** FELICIDAD **x* 


7.5. 


7.6. 


Haz un programa que permita introducir dos palabras, las conca- 
tene intercalando cinco asteriscos entre ellas e imprima el resul- 
tado. 


10 INPUT A$ 

20 INPUT B$ 

30 LETX$=A5 + "****" + BS 
40 PRINT X$ 

50 END 


La variable X$ se forma concatenando la cadena A$, 5 asteriscos 
y la cadena B$. La instrucción 40 imprime esta cadena X$. 


Diseña un programa que dé las longitudes de las cadenas que se 
van introduciendo y que detenga su ejecución al introducir una de 
longitud 1. 


10 INPUT A$ 

20 LETL = LEN (A$) 

30 PRINT “LA LONGITUD DE ”; A$; “ES”; L 
40 IFL<> 1 THEN GOTO 10 

50 END 


— El microordenador obtiene la longitud de la cadena en la ins- 
trucción 20 e imprime dicha longitud en la instrucción 30. 

— En la instrucción 40 se analiza si esta longitud es distinta de 
uno, en cuyo caso se lee una nueva cadena y en caso contra- 
rio se detiene la ejecución del programa. 
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7.7. 


7.8. 


Realiza un programa que permita introducir como cadena el nom- 
bre de un abonado y como número, su número de teléfono; 
transforme éste en cadena, concatene ambas cadenas y, final- 
mente, imprima el resultado. 


10 INPUT “INTRODUCE EL NOMBRE”; N$ 
20 INPUT “INTRODUCE EL TELEFONO”; T 
30 LETT$ = STR$ (T) 

40 LETX$=N$+" " +T5$ 

50 PRINT X$ 

60 END 


Después de introducir el nombre para N$, se introduce el número 
de teléfono, que se asigna a la variable numérica T. 


La instrucción 30 LET T$ = STR$ (T) transforma el número en ca- 
dena, y lo asigna a la variable T$. 


En la instrucción 40 se concatenan N$, un espacio en blanco y la 
cadena Tf$. La instrucción 50 imprime el contenido de X$. 


Haz un programa que forme una subcadena con la primera y úl- 
tima letra de cualquier cadena que se introduzca a través del te- 
clado. 


10 INPUT A$ 

20 LETI$ = LEFTS (AS, 1) 
30 LET D$ = RIGHTS (AS, 1) 
40 LETS$ =1$ + D$ 

50 PRINT S$ 

60 END 


Las instrucciones 20 y 30 extraen el primer y último carácter de la 
cadena Af$ y los almacenan en l$ y D$. 


Estas dos cadenas se concatenan en la instrucción 40, formando 
S$, y su contenido se imprime en la pantalla mediante la instruc- 
ción 60. 

En el microordenador ZX Spectrum, un programa que produciría 
los mismos resultados podría ser éste: 


10 INPUT A$ 

20 LETL = LEN (A$) 

20 LETI$5 = AS (1 TO 1) 
30 LETD$ = A$ (LTO L) 
40 LETS$ =1$ + D$ 

50 PRINT S$ 

60 END 
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19, 


Elabora un programa que lea una cadena, calcule su longitud L e 
imprima en la primera fila el primer carácter L veces; en la se- 
gunda fila, el segundo carácter L veces, y así sucesivamente. 


10 INPUT A$ 

20 LETL = LEN (A$) 

30 FORI=1TOL 

40 LETX$ = MID$ (AS, 1, 1) 
50 FORJ=1TOL 

60 PRINT X$; 

70 NEXT) 

80 PRINT 

90 NEXT | 
100 END 


— Averiguada la longitud de la cadena A$ en la instrucción 20, 
se obtiene cada uno de sus caracteres en la instrucción 40, se- 
gún va cambiando de valor la variable 1. 

— Cada uno de estos caracteres se imprime L veces en la panta- 
lla, mediante el bucle que va de la instrucción 30 a la 70. 

— La instrucción 80 PRINT sirve para dejar una línea entre las 
distintas impresiones de cada carácter. 


En el microordenador ZX Spectrum debe sustituirse la instrucción 
40 por 


40 LETX$ = A$ (I TO l) 


Realiza un programa que lea cadenas y las imprima junto con su 
longitud hasta que se introduzca la cadena “BASTA”. 


10 INPUT A$ 

20 IF AS = “BASTA” THEN GOTO 60 
30 LETL = LEN (A$) 

40 PRINT AS, L 

50 GOTO 10 

60 END 


La instrucción 20 permite analizar si se ha introducido la ca- 
na “BASTA”, en cuyo caso se interrumpe la ejecución del pro- 
grama. En caso contrario, se calcula la longitud de la cadena, y se 
imprimen ésta y dicha longitud. 


A continuación se pide una nueva cadena. 
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7.11. 


Construye un programa que imprima el primer carácter de la ca- 
dena que se introduzca si ésta es anterior a “ULTIMA”, y termine 
su ejecución cuando se introduzca “FIN”. 


10 
20 
30 
40 
50 
60 
70 


LETIS=" " 

INPUT A$ 

IF AS = “FIN” THEN GOTO 70 

IF AS = “ULTIMA” THEN PRINT 15 
LET 15 = LEFTS (AS, 1) 

GOTO 20 

END 


En la cadena l$ se almacena el primer carácter de la cadena A$ 
(inicialmente 1$ contiene la cadena vacía). 


Antes de asignar el primer carácter a l5 se comprueba si A$ es 
igual a “ULTIMA”, en cuyo caso se imprime el contenido anterior 
de I$. Si A$ es “FIN”, el proceso termina. 


En el microordenador ZX Spectrum debe sustituirse la instrucción 


50 por 


50 


LET 15 = A$ (1 TO 1) 


PROGRAMAS RESUELTOS eo. 


2d 


ERN 


¿Qué caracteres imprime el siguiente programa? 


10 
20 
30 
40 
50 


LET A$ = “FERNANDEZ” 
PRINT LEFT$ (AS, 2) 
PRINT RIGHTS$ (AS, 1) 
PRINT MID$ (A$, 2, 3) 
END 
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7.2. Escribe las instrucciones necesarias para imprimir el número de caracteres 
de la palabra NABUCODONOSOR. 


10 LETN = LEN ("NABUCODONOSOR”) 
20 PRINTN 
30 END 


7.3. ¿Qué imprimirá el siguiente programa? 
10 LETAS = “PATA” 


20 LETB$= "TA" 
30 PRINT AS + B$ 
40 END 

PATATA 


7.4, ¿Qué instrucciones son incorrectas? ¿Por qué? 


a) 100 IFX= “FECHA” THEN GOTO 500 

b) 200 IFN$< > A + B THEN PRINT N$ 

c) 300 IF P$= “1234” THEN LETS=S+ 1 

d) 400 IF G$ = “MAYOR” THEN GOTO 600 

e) 500 IFA$= “B” AND X > 3 THEN GOTO 800 
a) 

b 


No es correcta, pues X no es variable de cadena. 

) No es correcta, pues se comparan variables numéricas y de cadena. 

c) Es correcta, pues al estar 1234 entre comillas se considera una ca- 
dena. 

d) Es correcta. 

e) Es correcta. 


7.5. ¿Qué tiene que ocurrir para que se cumpla la condición P$ > Q$? 


Que la cadena que contiene la variable P$ sea anterior a la que con- 
tiene Q$. 
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7.6. 


Dal 


7.8. 


ZA 


Indica si son correctas las siguientes relaciones entre cadenas: 


a) “PEDRO” > = “JUAN” 

b) "M33" < “M4” 
a 157 js > "1235" 
“4PERRO” < = "37GATO” 


c) 

a) 

a) Es correcta, pues P es posterior a). 

b) Es correcta, pues aunque M esté en ambas cadenas, 3 es anterior a 4. 
) Es correcta, pues aunque los dos primeros caracteres coinciden, el 7 es 
posterior al 3. 

d) Es incorrecta, pues 4 es posterior a 3. 


Escribe una o varias instrucciones que expresen la siguiente condición: 


Si N$ = “SI” transferir el control a la línea 70, y si NS = “NO” transferirlo 
a la 90. 


10 IF N$ = “SI” THEN GOTO 70 
20 IFN$ = “NO” THEN GOTO 90 


Sea una cadena A$ en la que están almacenados el primer apellido de un 
alumno, a continuación el segundo apellido y después el nombre, cada 
uno con diez caracteres (si algunos no se ocupan se dejan con blancos); 
además está almacenada la edad, que ocupa dos caracteres. Escribe un 
programa que imprima por separado cada una de estas partes de la ca- 
dena. 


10 INPUT A$ 
20 LETB$ = LEFT$ (AS, 10) 
30 LET C$ = MID$ (AS, 11, 10) 
40 LET D$ = MID$ (AS, 21, 10) 
50  LET E$ = RIGHTS (A$, 2) 
60 PRINT ”1 APELLIDO”, B$ 
70 PRINT “2 APELLIDO”, C$ 
80 PRINT “NOMBRE”, D$ 
90 PRINT “EDAD”, E$ 
100 END 


Para el ZX Spectrum sustituir las instrucciones 20, 30, 40 y 50 por 


20 LETB$ = A$ (1 TO 10) 

30 LETC$ = A$ (11 TO 20) 
40 LET D$ = A$ (21 TO 30) 
50 LETE$ = A$ (31 TO 32) 


Escribe un programa tal que para tres personas cuyos apellidos, nombres y 
edad se conocen y están incluidos en tres cadenas A$, B$ y C$, imprima 
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7.10. 


en pantalla su edad media (ver el ejercicio anterior y usar la instrucción 
VAL (X$).. 


10 INPUT A$ 

20 INPUT B$ 

30 INPUT C$ 

40 LETA$ = RIGHTS (AS, 2) 
50 LET B$ = RIGHTS (B$, 2) 
60 LET C$ = RIGHTS (C$, 2) 
70 LET X = VAL (AS) 

80 LET Y = VAL (B$) 

90 LETZ = VAL (C$) 
100 PRINT (X + Y + 2) / 3 
110 END 


Para el ZX Spectrum añadir la instrucción 
35 LETL1 = LEN (AS) : LET L2 = LEN (B$) : LET L3 = LEN (C$) 
y sustituir las instrucciones 40, 50 y 60 por 


40 LET AS = A$ (L1-1 TO L1) 
50 LETB$ = A$ (L2-1 TO L2) 
60 LET C$ = A$ (L3-1 TO L3) 


Haz un programa que introduzca por separado el día, el mes y el año de 
nacimiento de una persona, forme una Única cadena para estos datos e 
imprima el resultado. 


10 INPUT D$ 

20 INPUT M$ 

30 INPUT A$ 

40 LETC$ =D$ + M$ + AS 
50 PRINT C$ 

60 END 


Escribe un programa que permita introducir una palabra de cinco letras y 
después imprima sus caracteres de derecha a izquierda. 


10 INPUT A$ 

20 LETBS$=" " 

30 FOR|=5T0O 1 STEP —1 

40 LETB$ = B$ + MID$ (AS, 1, 1) 
50 NEXT | 

60 PRINT B$ 

70 END 


Para el ZX Spectrum, cambiar la instrucción 40 por 
40 LETB$ =B$ + A$ (ITO 1) 
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7.12. Elabora un programa que invierta una palabra con cualquier número de 
letras. 


10 INPUT A$ 

20 LETB$="" 

25 LETL = LEN (AS) 

30 FORI=LTO 1 STEP -1 

40 LETB$ = B$ + MIDS (AS, 1, 1) 
50 NEXT | 

60 PRINT B$ 

70 END 


Para el ZX Spectrum cambiar la instrucción 40 por 
40 LETB$ = B$ + A$ (ITO 1) 


7.13. Realiza un programa que lea una serie de palabras e imprima solamente 
las que empiecen por la letra A. 


10 INPUT A$ 

20 IFA$<> LEFT $ (AS, 1) THEN 10 
30 PRINT A$ 

40 GOTO 10 

50 END 


7.14. Diseña un programa que lea una serie de palabras e imprima solamente 
las que empiecen por la letra A y terminen con la S. 


10 INPUT A$ 

20 IF (A $ <> LEFT $ (A$, 1)) OR (S < > RIGHTS (AS, 1)) THEN 
GOTO 10 

30 PRINT A$ 

40 GOTO 10 

50 END 


7.15. Dadas las variables: 


A$ = “EL” 

B$ = “DIA” 

C$ = “COMIENZA” 
DS = “AL” 


ES = “AMANECER” 


hacer un programa que realice la concatenación de las cadenas, que alma- 
cene las variables e imprima el resultado. 


100 


10 INPUT A$ 

20 INPUT B$ 

30 INPUT C$ 

40 INPUT D$ 

50 INPUT E$ 

60 LETZ$=A$ + B$ + C$ + DS + E$ 
70 PRINT Z$ 

80 END 


7.16. Rectifica el programa anterior para que al imprimir deje un espacio en 
blanco entre cada dos cadenas. 


10 INPUT A$ 

20 INPUT B$ 

30 INPUT C$ 

40 INPUT D$ 

50 INPUT E$ 

60 LETZS=A$ +" "+BS5+" "+C$+"” "4+D$+" ” +ES 
70 PRINT Z$ 

80 END 


7.17. Realiza un programa que lea tres cadenas y dé la longitud total de las tres. 


10 INPUT A$ 

20 INPUT B$ 

30 INPUT C$ 

40 LETZ$ = AS + B$ + C$ 
50 LETL = LEN (Z$) 

60 PRINT L 


7.18. Construye un programa que lea una cadena, calcule su longitud y vaya ex- 
trayendo subcadenas desde la izquierda, de longitud 1, de longitud 2, ..., 
y de longitud máxima. 


10 INPUT A$ 

20 LETL = LEN (AS) 

30 PRINT “LA LONGITUD ES”, L 
40 FORI=1TOL 

50 LET B$ = LEFTS (AS, 1) 

60 PRINT B$ 

70 NEXT | 

80 END 


Para el ZX Spectrum cambiar la instrucción 50 por 
50 LETB$ = A$ (1 TO 1) 
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7.19. Haz un programa que lea una cadena y añade blancos (espacios en 
blanco) hasta que alcance la longitud 20. 


10 INPUT A$ 

20 LETL = LEN (A$) 

30 FORI=L+1T020 
40 LETAS=A$5+”" 
50 NEXT | 

60 END 


7.20. Realiza un programa que dé el informe “CORRECTO” si la cadena leída 
tiene longitud inferior a 3 y que imprima “MAL” en caso contrario. 


10 INPUT A$ 

20 LETL = LEN (AS) 

30 IFL< 3 THEN GOTO 60 
40 PRINT “MAL” 

50 STOP 

60 PRINT “CORRECTO” 

70 END 


7.21. Diseña un programa que lea cadenas e imprime el primer carácter y el úl- 
timo hasta que se introduzca la cadena “FIN”. 
10 INPUT A$ 
20 IF AS = “FIN” THEN GOTO 70 
30 LET1$ = LEFTS (AS, 1) : LET DS = RIGHTS (AS, 1) 
40 PRINT “EL PRIMER CARACTER ES:”; 1$ 
50 PRINT “EL ULTIMO CARACTER ES:”; D$ 
60 GOTO 10 
70 END 
En el ZX Spectrum añadir 
25 LETL = LEN (AS) 
y sustituir la instrucción 30 por 


30 LETI$ = A$ (1 TO 1) : LET D$ = AS (L TO L) 


7.22. Escribe un programa que compruebe si una cadena contiene la letra A. 
10 INPUT A$ 
20 LETL =LEN (A$) 
30 FORI=1TOL 
40 LET Z$ = MIDS$ (AS, 1, 1) 
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50 
60 
70 
80 
90 
100 


IF Z$ = “A” THEN GOTO 90 

NEXT | 

PRINT “LA CADENA NO CONTINE LA LETRA A” 
STOP 

PRINT “LA CADENA CONTIENE LA LETRA A” 
END 


En el ZX Spectrum, sustituir la instrucción 40 por 
40 LET Z$ = AS (I TO 1) 


7.23. Diseña un programa tal que al introducir un texto calcule el número de 
veces que aparece la letra E. 


7.24, 


10 
20 
30 
40 
50 
60 
70 
80 
90 


LETC=0 

INPUT A$ 

LET L = LEN (A$) 

FOR|=1TOL 

LET B$ = MIDS (AS, 1, 1) 

IF B$ = “E” THENLETC=C+1 

NEXT | 

PRINT “LA LETRA E ESTA CONTENIDA ”; C; ” VECES” 
END 


(En muchos microordenadores el texto que se introduce en A$ sólo puede 
tener como máximo 255 caracteres.) 


En el ZX Spectrum sustituir la instrucción 50 por 


50 


LET B$ = A$ (1 TO 1) 


Escribe un programa que cuente el número total de vocales que hay en un 
texto cualquiera. 


10 
20 
30 
40 
50 
60 


70 
80 
90 


LETC=0 

INPUT A$ 

LET L = LEN (A$) 

FOR|=1TOL 

LET B$ = MIDS (AS, 1, 1) 

IF B$ = “A” OR B$ = “E” OR B$ = "I” OR B$ = “O” OR B$ = 
= "U" THEN LETC =C +1 

NEXT | 

PRINT “HAY *; C; ” VOCALES” 

END 


En el Spectrum hay que sustituir la instrucción 50 por 


50 


LET B$ = AS (I TO |) 


7.25. Haz un programa que lea un texto y dé un informe con el número de 
veces que han aparecido cada una de las vocales: A, E, |, O y U. 


10 LETA=0:LETE=0:LETI=0:LETO=0:LETU=0 
20 INPUT A$ 

30 LETL = LEN (A$) 

40 FORK=1TOL 

50 LET B$ = MID$ (A$,K,1) 

60 IFB$="A” THEN LETA =A + 1 

70 IF B$ = “E” THEN LETE =E+ 1 

80 IF B$= "1" THENLETI=1+1 

90 IFB$= "0" THEN LETO=0 + 1 
100 IF B$= “U” THEN LETU=U+ 1 
110 NEXT K 
120 PRINT “LA LETRA A APARECE ”; A; ” VECES” 
130 PRINT “LA LETRA E APARECE ”; E; ” VECES” 
140 PRINT “LA LETRA | APARECE ”; I; “ VECES” 
150 PRINT “LA LETRA O APARECE ”; O; ” VECES” 
160 PRINT “LA LETRA U APARECE ”; U; ” VECES” 
170 END 
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8 Listas numéricas 


Programas resueltos con DIM A(N) 


RESUMEN DE LAS INSTRUCCIONES 


DIM A(N) 


Esta instrucción reserva posiciones de memoria, en las que se almace- 
narán los datos de las variables. 


Inicialmente, en estas posiciones se O el valor cero. 


y 


Ejemplo 
La instrucción 
10 DIM A(20) 
reserva, según el microordenador, 


— 20 posiciones de memoria si empieza a contar desde el 1. Estas posiciones 
se nombran así con los nombres A(1), A(2), ..., AQO). 


— 21 posiciones de memoria, si empieza a contar desde el O. Estas posiciones 
se nombran con los nombres A(0), A(1), ..., A (20). 
Observación 


En algunos microordenadores, cuando N es menor o igual que 10, no es necesa- 
rio utilizar la instrucción DIM, pues la reserva de posiciones de memoria se realiza 
de forma automática. 
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ERASE 


Esta instrucción elimina la declaración de dimensión de las listas es- 
pecificadas, dejando libres las posiciones de memoria reservadas y los 


nombres de dichas listas. 


y 


Ejemplo 


Al ejecutarse la instrucción 
40 ERASE A, B 
las variables A y B quedan libres de su anterior dimensionamiento. 


Observación 


¡No todos los microordenadores poseen esta instrucción! 


PROGRAMAS RESUELTOS EXPLICADOS > 


8.1. 


8.2. 


Indica cuántas posiciones de memoria abarca la variable dimensio- 
nada A(K). 


10 DIM A(18) 

20 FORK =1T0 15 
30 INPUT A(K) 

40 NEXT K 

50 END 


La variable A(K) ocupa 18 Ó 19 posiciones (si el microordenador 
empieza a contar desde O) porque la instrucción 10 DIM A(18) así 
lo especifica, aunque el programa sólo utilice quince posiciones (de 
A(1) a A(15)). 


¿Qué ocurriría al ejecutar el programa anterior si la instrucción 10 
DIM A(18) se cambiara por 10 DIM A(13)? 


El microordenador imprimiría un mensaje de error en el momento 
de su ejecución, al ser el número de posiciones reservadas inferior 
al número que se pretende utilizar. 
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8.3. 


8.4. 


8.5. 


Haz un programa que produzca los mismos efectos que el trans- 
crito en el ejercicio 8.1, utilizando las instrucciones READ y DATA. 


10 DIM A(18) 

20 FORK =1T0 15 
30 READ A(K) 

40 NEXT K 

50 DATA... 

60 END 


Solamente ha sido necesario sustituir la instrucción 30 INPUT A(K) 
por 30 READ A(K) y añadir la instrucción de datos 50 DATA ... 
donde deberán ir quince valores separados por comas. 


Escribe un programa que lea una lista de 12 datos numéricos; es 
decir, los almacene en la memoria y los imprima en la pantalla uno 
a continuación de otro, en fila. 


10 DIM A(12) 

20 FORI=1T0 12 
30 INPUT A(l) 

40 NEXT | 

50 FORI=1T0 12 
60 PRINT A(l); 

70 NEXT | 

80 END 


— La instrucción 10 reserva 12 posiciones de memoria para la va- 
riable A de un índice. (13 posiciones en los microordenadores 
que cuenten desde 0). 

— El bucle 20 - 40 permite almacenar en la memoria los 12 datos 
numéricos. 

— El bucle 50 - 70 imprime los valores en la pantalla uno a conti- 
nuación de otro debido al punto y coma (;) de la instruc- 
ción 60. 


Escribe una lista de diez números y ordénalos siguiendo las instruc- 
ciones del programa anterior. 


5 REM ORDENACION DE NUMEROS 
10 INPUT “NUMERO:”; N 
20 DIM V(N) 
30 FORJ=1TON 
40 INPUT “DATO:”; V()) 
50 NEXT J 
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60 FORJ=1TON-— 1 
70 FORK =J+1TON 
80 IF V(J) < = V(K) THEN GOTO 120 
90 LETA = V()) 

100 LET V(J) = V(K) 

110 LET V(K) = A 

120 NEXT K 

130 NEXT J 

140 FORI=1TON 

150 PRINT V(I); * ”; 

160 NEXT | 

170 END 


Si se introducen los números 27, 35, 4, 6, 8, 145, -420, 35, 6, 6, 
el resultado que se obtiene es éste: 


42046566827 35 35 145 


El conjunto de instrucciones que hacen la ordenación está com- 
prendido entre la 60 y la 130, ambas inclusive, y el método utili- 
zado se explica a continuación. 


— Primera fase (J = 1): llevar a la primera posición el nú- 
mero menor. 


Para conseguir esto se compara la primera posición con todas 
las siguientes; si éstas contienen números menores que el de la 
primera posición, se intercambian los valores: 


DEDO 


DOCE 
Í 


[2155 
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-— Segunda fase (J = 2): llevar a la segunda posición 
el número menor (mayor que el primero). 


Peal] | 27 6] 8] 105] 4J3s] 6/5 
420 | 27] 35f6/8|105/ e fas[oj6 


-420 | 6|35 27|8|145| 4|35|6 


0 


=>] 521[5T+]= 


— Tercera fase (J = 3): llevar a la tercera posición el número 
menor (mayor que el segundo). 


sede 
E 4 

SP psa 
É y 

She 

ESOO ono 


— Y así sucesivamente, hasta conseguir que todos los números de 
la lista queden ordenados. 


Se obtiene este resultado: 


| 420 |] 6J6J0/8]27/35/25| vas 
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8.6. Haz un programa que ordene una lista de números de mayor a 


o PROGRAMAS RESUELTOS 


8.1. 


menor, o sea en forma decreciente, y los escriba en la pantalla en 
forma vertical. 


1 REM ORDENACION DE NUMEROS DE MAYOR A MENOR 

10 INPUT “NUMERO:”; N 

20 DIM V(N) 

30 FORJ=1TON 

40 INPUT “DATO:”; V()) 

50 NEXT J 

60 FORJ=1TON-— 1 

70 FORK=J+1TON 

80 IF V(J) > = V(K) THEN GOTO 120 
90 LETA = V() 
100 LET V(J) = V(K) 
110 LET V(K) = A 
120 NEXT K 
130 NEXT J 
140 FORI=1TON 
150 PRINT V(I) 
160 NEXT 1 
170 END 


— El conjunto de instrucciones 10 - 50 permite introducir el nú- 
mero de valores N, y los datos V()J). 

— El bloque 60 - 130 realiza la ordenación de los números de 
mayor a menor, efectuando N - 1 fases (desde J = 1 hasta J = 
= N - 1), de tal forma que en la primera fase (J = 1) se lleva el 
número mayor a la primera posición; en la segunda fase (J = 
= 2) se lleva el número mayor (menor que el primero) y así suce- 
sivamente. 

— El bloque 140 - 160 imprime, en forma vertical, los resultados. 


En la memoria de un microordenador se tienen estas variables con sus co- 
rrespondientes valores almacenados: 


Q A(1) 
A A(2) 
Al AG) 
A(4) 


8.2. 


8.3. 


Escribe el valor que almacenan las siguientes variables: A(A), A(A1), A(A(Q)) 
A(A(2)). 


¿Qué aparecerá en pantalla al ejecutar el siguiente programa? 


10 READ N 

20 FORK =1TON 

30 READ X(K) 

40 NEXT K 

50 FORK =1TON 

60 IF X(K) < 0 THEN GOTO 80 

70 PRINT X(K) 

80 NEXT K 

90 DATA 7 
100 DATA 23, -44, 37, 0, -14, -38, 14 
200 END 


— Como el valor que se le asigna a N es 7, en algunos microordenadores 
aparecerá un mensaje de error por no haber dimensionado la lista X(K) 
al principio del programa con la instrucción 

15 DIM X(N) 

— En los que no se produzca error, imprimirán los números no negativos 

en columna, es decir: 


23 
37 

0 
14 


Si se añadiesen al programa anterior las siguientes instrucciones: 


110 DATA 8, 4, -3, 2, 2,4, 3,8, 5, 1 
120 DATA 5, 0, 2, 4, 3, 9, 8,4, 3,8, 4 


¿qué problemas se presentarían? ¿Cómo se solucionarían? 


— Al añadir 21 datos se produciría un error por no haber dimensionado la 
variable X(K) y por ser N = 7, 


— Este problema se soluciona añadiendo al programa la instrucción 
15 DIM X (N) 
y sustituyendo el valor 7 (que se asignó a N) por 28: 
90 DATA 28 


8.4. Haz un programa que calcule la suma de los 100 primeros elementos de 
una lista T (1). 


10 DIM T(100) 

20 LETS=0 

30 FOR |= 1T0O 100 
40 INPUT T(l) 

50 LETS =S + TI) 
60 NEXT | 

70 PRINTS 

80 END 


8.5. Dado un conjunto de valores, elabora un programa que escriba aquellos 
que se encuentren entre dos dados. 


El programa debe comenzar leyendo el menor, el mayor y el número de 
términos. Acto seguido leerá uno a uno los distintos valores e imprimirá los 
que cumplan la condición. 


10 INPUT “EL MENOR”; N 

20 INPUT "EL MAYOR”; M 

30 INPUT “NUMERO DE VALORES”; V 
40 DIM X(V) 

50 FORI|=1TOV 

60 INPUT X(1) 

70 NEXT | 

80 FORI=1TOV 

90 IFN < X(I) AND X(1) < M THEN PRINT X(1) 
100 NEXT 1 
110 END 


8.6. Se tiene una lista de 20 personas entre los 30 y 69 años. Realiza un pro- 
grama que contabilice el número de personas que se encuentran entre: 


30-39 
40-49 
50-59 
60-69 


e imprime los resultados. 


10 DIM P(20) 

20 LETA=0:LETB=0:LETC=0:LETD=0 

30 FORI=1T0 20 

40 INPUT P(I) 

50 NEXT | 

60 FORI=1T0 20 

70 1F 30 < = P(I) AND P(I) < = 39 THENLETA=A + 1 
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80 

90 
100 
110 
120 
130 
140 
150 
160 


IF 40 < = P(I) AND P(I) < = 49 THEN LET B = B + 
IF 50 < = P(I) AND P(I) < = 59 THEN LET € = C + 
IF 60 < = P(I) AND P(I) < = 69 THEN LET D = D + 
NEXT | 

PRINT “ENTRE 30 y 39 AÑOS”, A 

PRINT “ENTRE 40 y 49 ANOS”, B 

PRINT “ENTRE 50 y 59 AÑOS”, C 

PRINT “ENTRE 60 Y 69 AÑOS”, D 

END 


1 
1 


1 


8.7. Sea una lista de veinte elementos, los cuales pueden ser valores positivos, 
negativos o nulos. Haz un programa que imprima el total de elementos po- 
sitivos, el total de negativos y el total de nulos. 


En este programa se utilizan las variables P, N y O para acumular el número 
de valores positivos, negativos y nulos, respectivamente. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 


DIM A(20) 
LETP=0:LETN=0: LETO=0 
FOR | = 1 TO 20 

INPUT A(l) 

IF A(I) > 0 THEN LETP =P +1 
IFA() <OTHENLETN =N +1 
IF A(I) = O THEN LETO=0+1 
NEXT | 

PRINT “POSITIVOS”, P 

PRINT “NEGATIVOS”, N 

PRINT “NULOS”, O 

END 


le: 


9 Tablas numéricas 


Programas resueltos con DIM A(N,M) 


RESUMEN DE LAS INSTRUCCIONES 


DIM A(N, M) 


Esta instrucción reserva posiciones de memoria en las que se almace- 
narán los datos de los elementos de la tabla A. 


Las posiciones de memoria se nombran con los nombres A(1, 1), A(1, 
2), ..., AQ, 1), A(Q, 2), etc. 


y 


Ejemplo 
La instrucción 
10 DIM A(40, 7) 


reserva 40 x 7 = 280 posiciones de memoria para la variable de dos índices A. 
En este caso, la tabla tiene 40 filas y 7 columnas. 


159) 


Observación 


Hay microordenadores que comienzan a contar desde cero (0), luego la instruc- 


ción 


10 DIM A(40, 7) 


reservaría, es este caso, 41 x 8 = 328 posiciones de memoria para la variable de 
dos índices A. La tabla tendría, entonces, 41 filas (0, 1, 2, ..., 40) y 8 columnas (0, 


A 


hu 


PROGRAMAS RESUELTOS EXPLICADOS ooo 


9.1. Escribe la tabla que imprimiría en la pantalla el siguiente programa: 


5 
10 
20 
30 
40 
50 
60 
70 
80 
90 

100 
110 
120 
130 


REM TABLA 
DIM A (2,3) 
FOR | = 1T0 2 
FOR J = 17103 
READ A(l,J) 
NEXT J 

NEXT | 

DATA -1, 0, 0, 3, 0.5, 8 
FOR |= 170 2 
FOR J = 1T0 3 
PRINT A (1,J) 
NEXT J 

NEXT | 

END 


— En los dos bucles anidados comprendidos en las líneas 20 - 60 
se leen los valores de A (l,J) cuyos datos se encuentran en la 
instrucción 70 DATA. 


— Mediante los dos bucles anidados comprendidos en las líneas 
80 - 120 se imprimen los valores de la tabla A (l,J) vertical- 
mente. La instrucción que imprime dichos datos es la 100. 

— El resultado que se obtiene en la pantalla es éste: 

—1 
0 
0 
3 
0.5 
8 


aunque su distribución en filas y columnas sea la que muestra 
la tabla 


9.2. Haz un programa que almacene en la memoria una tabla de cuatro 
filas y 10 columnas y a continuación la escriba en la pantalla. 


10 DIM A (4,10) 

20 FOR|=1T04 
30 FORJ=1T0O 10 
40 INPUT A (1,J) 

50 NEXT J 

60 NEXT | 

70 FOR|=1T04 
80 FORJ=1T0 10 
90 PRINT A (1,J) 
100 NEXT J 
110 NEXT | 
120 END 


— La instrucción 10 reserva 4 x 10 = 40 posiciones de memoria 
para la tabla A (l,J). 


— Los dos bucles 20 - 60 permiten que se introduzcan los valores 
de la tabla por medio de la instrucción 40. 


— Los dos bucles 70 - 110 consiguen que la instrucción 90 escriba 
en la pantalla los valores de la tabla. 
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9,3. 


Haz un programa similar al anterior que calcule el promedio de las 
notas por alumno en todas sus asignaturas. 


Si A es el número de alumnos y X el número de asignaturas, la ta- 
bla N (A,X) recoge las notas de los A alumnos en las X asignaturas. 


El programa es: 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
300 


REM PROMEDIO POR ALUMNO 

READ A 

READ X 

DIM N (A,X) 

REM ALMACENAR EN MEMORIA LAS NOTAS 
FOR J = 1TO X 

FOR|=1TOA 

READ N (1,J) 

NEXT | 

NEXT J 

REM CALCULO DEL PROMEDIO DE CADA ALUMNO 
FOR | = 1TO A 


LETT=0 

FOR J = 1TO X 
LETT=T+N (1,)) 
NEXT J 


PRINT “EL PROMEDIO DEL ALUMNO”; 1; “ES”; T/X 
PRINT 

NEXT | 

END 


— A este programa hay que añadirle instrucciones DATA con los 
datos necesarios. Ejemplo: 


200 DATA 5, 3 


210 DATA 4, 4, 5, 6,2,8,3, 7, 5, 4, 4, 10, 2, 9, 8 


— En este caso, la instrucción 20 asignará a A el valor 5 (alumnos) 
y a X el valor 3 (asignaturas). 


La instrucción 40 reservará 5 x 3 = 15 posiciones de memoria 


para la tabla N (1,J) que contendrá las notas. 


— El bucle 60 - 100 permite leer las notas por asignaturas: 
4,4,5,6,2 corresponden a la primera asignatura, 
8,3,7,5,4 corresponden a la segunda asignatura y 
4, 10, 2, 9, 8 corresponden a la tercera asignatura. 


— En el bucle 120 - 190 se calcula e imprime el promedio de cada 
alumno. 


117 


9.4. Los precios de cinco productos en tres ciudades españolas están re- 
gistrados en la tabla. Hacer un programa que dé los precios medios 
de los distintos productos. 


Valencia Las Palmas Soria 
Naranjas 100 140 120 
Plátanos 100 90 130 
Fresones 90 150 110 
Manzanas 80 100 90 

as Sl 7] 
Peras 60 90 90 
¡(A al | 


10 DIMA (5, 3) 
20 FORI=1TO5 
30 FORJ=1T03 
40 INPUT A(l,J) 


50 NEXT J 

60 NEXT | 

70 FORI=1T0O5 
80 LETS=0 


90 FORJ=1T03 
100 LETS =S+A (1,)) 
110 NEXT) 

120 PRINT S/3 
130 NEXT | 
140 END 


— En el bloque de instrucciones 20 - 60 se van introduciendo los 
distintos precios, por filas. 


— El bloque 70 - 130 hace que en S se acumulen los precios de 
un producto, el cual será dividido por 3. Al comenzar con un 
nuevo producto se hace S = 0. 
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93. 


9,2, 


9.3, 


Señala las variables dimensionadas de dos índices correctamente escritas. 


VDLaean 1 e 


Mm 


La variable X (2 + 2) es de un índice, ya que X (2 + 2) = X (4). 
X (5,5) está correctamente escrita. 

X (A + B, C) está correctamente escrita. 

X (X(1,2), XQ, 1)) está correctamente escrita. 

X (A,A) está correctamente escrita. 


A la siguiente tabla se asigna el nombre A. 


¿Qué clase de variable es A? 

¿Qué valores tienen A (1,1) y A (3,1)? 

SiX = 2, e Y = 3, ¿cuál es el valor de A (X,Y), A(X + 1, Y — 1) yA 
(A(1,2), A(2,1) — 1)? 


A es una variable de dos índices y representa una tabla con tres filas y 
dos columnas. 
A(1,1) = 1; A(3,1) = 5. 
SIX = 2, € Y = 3, se tiene: 
A (X,Y) = A (2,3), elemento que no existe en la tabla. 
A(X+ 1, Y - 1) =A (3,2) =6 
A (A(1,2), A(2,1) — 1) = A (2,2) = 4 


Escribe un programa que almacene ceros en una variable que repre- 
sente a una tabla de 10 filas y 5 columnas. 

Lo mismo que en el apartado a), pero en lugar de almacenar ceros 
que almacene 1. 


10 DIM A(10,5) 

20 FORI|=1T0 10 
30 FORJ=1T0O5 
40 LETA (1,J) = 0 
50 NEXT J 

60 NEXT | 

70 END 
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9.4, 


Si se tiene en cuenta que la instrucción 10 DIM A (10,5) asigna ceros 
a todos los elementos de la tabla A, el programa anterior se puede 
reducir a estas instrucciones: 


10 DIMA (10,5) 
20 END 


b) 10 DIMA (10,5) 
20 FORI|=1T0 10 


30 FORJ=TO5 
40 LETA (1,)) = 1 
50 NEXT J 

60 NEXT | 

70 END 


Al hacer una encuesta para anticipar los posibles resultados de unas 
próximas elecciones, se han hecho las siguientes preguntas: 


a) ¿A qué candidato votaría? 


1. NOMBRE 1. 
2. NOMBRE 2. 
3. EN BLANCO. 


b) ¿En qué grupo de edad está usted? 


1. Menos de treinta años. 
2. Treinta años o más. 


Escribe un programa que recuente los votos conseguidos por cada candi- 
dato y los clasifique por edades. Los datos de los votos se introducirán con 
instrucciones READ y DATA. 


Sugerencia: Se puede definir una variable de dos índices, A (X, Y), repre- 
sentando X el candidato votado e Y la edad del votante. Así, A (1,1) es un 
voto conseguido por el candidato 1 emitido por un votante con edad me- 
nor de treinta años. 


Cada votante tendrá que dar dos números, X e Y, siendo X el que corres- 
ponde al candidato: 


1. NOMBRE 1. 
2. NOMBRE 2. 
3. ENBLANCO. 


Y siendo Y el que corresponde al grupo de edad que pertenece: 


1. Menos de treinta años. 
2. Treinta años o más. 


La finalización del proceso se señalará con X = 0 e Y = 0, escribiendo 
estos dos valores en la instrucción DATA en último lugar. 
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9.3, 


El programa es éste: 


10 DINA (3,2) 
20 READ X,Y 
30 IF X= 0 AND Y = O THEN GOTO 60 
40 LETA (X, Y) = A (X, Y) +1 
50 GOTO 20 
60 PRINT “NOMBRE 1 Y MENORES DE 30”, A (1,1) 
70 PRINT “NOMBRE 1 Y 30 O MAS”, A (1,2) 
80 PRINT “NOMBRE 2 Y MENORES DE 30”, A (2,1) 
90 PRINT “NOMBRE 2 Y 30 O MAS”, A (2,2) 
100 PRINT “EN BLANCO Y MENORES DE 30”, A (3,1) 
110 PRINT “EN BLANCO Y 30 O MAS”, A (3,2) 
200 END 


Como datos se pueden poner, por ejemplo, los siguientes: 
120 DATA 1,1, 2,1, 2,2,3, 2,3; 1,3, 1, 1,2, 4,2, 0,0 


Dadas las calificaciones de 10 alumnos en 5 asignaturas, escribe un pro- 
grama que obtenga la nota media de cada alumno y la media de cada 
asignatura. 


10 DIM C (10, 5) 


20 FORI=1T0 10 
30 FORJ=1TO5 
40 INPUT C (1,J) 

50 NEXT J 

60 NEXT | 


70 REM MEDIA DE CADA ALUMNO 
80 FOR|I=1T010 
90 LETS=0 
100 FORJ=1TO5 
110 LETS = S + C(1,)) 
120 NEXT) 
130 PRINT “LA MEDIA DEL ALUMNO”; I; “ES”; S/5 
140 NEXT! 
150 REM MEDIA DE CADA ASIGNATURA 
160 FORJ=1T05 
170 LETS=0 
180 FOR!|= 1T0O 10 
190 LETS =S + C (1,J) 
200 NEXT | 
210 PRINT “LA MEDIA DE LA ASIGNATURA”; J; “ES”; S/10 
220 NEXT J 
230 END 


9.6 


97. 


Hacer un programa que lea una tabla y obtenga el elemento mayor. 


10 INPUT “FILAS”; F 

20 INPUT “COLUMNAS”; C 
30 DIMT (F.C) 

40 FOR|=1TOF 

50 FORJ=1TOC 

60 INPUT T (1,J) 

70 NEXT J 

80 NEXT | 

90 LETM=T (1,1) 
100 FOR|I=1TOF 
110 FORJ=1TOC 
120 IF M<T (1,3) THEN LET M =7 (1,J) 
130 NEXT J 
140 NEXT | 

150 PRINT “EL MAYOR ES:”, M 
160 END 


Una red comercial tiene 10 tiendas y cada tienda 4 departamentos. Escribe 
un programa que lea los valores de las ventas por tienda y departamento 
e imprima: 

1.2 El total de ventas por tienda. 

2.2 El total de ventas por departamento en todas las tiendas. 


La variable V (T,D) indica las ventas en un departamento D de una tienda 
determinada T. Además, A y B (D) representan las ventas por tienda y por 
departamento en todas las tiendas, respectivamente. 


10 DIM V (10,4) 

20 DIM S (4) 

30 FORT=1T0 10 

40 LETA=0 

50 FORD=1T04 

60 INPUT V (T,D) 

70 LETA=A + V(T,D) 

80 LET B (D) = B (D) + V (T,D) 

90 NEXT D 
100 PRINT “EL TOTAL DE VENTAS EN LA TIENDA”; T; “ES”; A 
110 NEXTT 
120 FORD=1T04 
130 PRINT “LAS VENTAS DEL DEPARTAMENTO”; D; “EN TODAS 

LAS TIENDAS ES”; B (D) 

140 NEXT D 
150 END 
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9.8. Haz un programa que lea una tabla y ponga a cero los elementos que es- 
tén repetidos. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 


INPUT “FILAS”; F 
INPUT “COLUMNAS”; C 
DIM T (F,C) 

FOR | = 1TOF 

FOR J = 1TO C 

INPUT T (1,J) 

NEXT J 

NEXT | 

FOR | = 1TOF 

FOR J) = 1 TOC 

LETA =7 (1,3) 
LETR=0 

FOR K =1|TO F 

FOR L =JTO C 

IFA =T (K,L) THEN LET T (K,L) = 0: LETR =1 
NEXT L 

NEXT K 

IFR = 1 THEN LET T (1,1) = 0 
NEXT J 

NEXT | 

END 


Nota: Si se desea igualar a cero sólo las repeticiones, basta con eliminar 
las instrucciones 120 y 180, y sustituir la 150 por 150 IF A = T 
(K,L) THEN LET T (K,L) = 0. 


9.9. Escribe un programa que lea dos tablas de igual dimensión y forme una 
tercera sumando los elementos que ocupan la misma posición. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 


INPUT “FILAS”; F 

INPUT “COLUMNAS”; C 

DIM A (F,C) : DIM B (F,C) : DIM S (F,C) 
REM LECTURA DE LA PRIMERA TABLA 
FOR | = 1 TO F 

FOR J = 1TOC 

INPUT A (1,J) 

NEXT J 

NEXT | 

REM LECTURA DE LA SEGUNDA TABLA 
FOR | =1TOF 

FOR J = 1 TO C 

INPUT B (1,J) 

NEXT J 
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150 NEXT! 

160 REM SUMA DE LAS DOS TABLAS 
170 FORI=1TOF 

180 FORJ=1TOC 

190 LET'S (1,J) = A (1,J) + B (1,,) 

200 NEXT J 

210 NEXT | 

220 REM IMPRESION DE LA TABLA SUMA 
230 FORI|=1TOF 

240 PRINT “FILA”; | 

250 FORJ=1TOC 

260 PRINTS (1,J) 

270 NEXT) 

280 NEXT | 

290 END 


9.10. Diseña un programa que lea una tabla y obtenga el elemento menor de 
cada fila y el elemento mayor de cada columna. 


10 INPUT “FILAS”; F 

20 INPUT “COLUMNAS”; C 

30 DIMT (F,C) 

40 FOR|=1TOF 

50 FORJ= 1 TO C 

60 INPUT T (1,)) 

70 NEXT J 

80 NEXT | 

90 REM MENOR DE CADA FILA 

100 FOR|I=1TOF 

110 LETM=T(l, 1) 

120 FORJ=2TO C 

130 IF T (1,3) <M THEN M = 7 (1,,) 

140 NEXT) 

150 PRINT “EL MENOR DE LA FILA”; Il; “ES”; M 
160 NEXT | 

170 REM MENOR DE CADA COLUMNA 
180 FORJ=1TOC 

190 LETM=T (1,) 
200 FORI|=2TOF 
210 IF T (1,3) > M THEN LET M = 7 (1,J) 
220 NEXT | 
230 PRINT “EL MAYOR DE LA COLUMNA”; J; “ES”; M 
240 NEXT) 
250 END 


9.11. Escribe un programa que lea una tabla e imprima aquellos elementos que 
sean los menores de su fila y a la vez los mayores de su columna. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
120 
130 
140 
150 
160 
170 
180 


190 
200 


INPUT “FILAS”; F 

INPUT “COLUMNAS”; C 

DIM T (F,C) 

FOR | = 1TOF 

FOR J = 1TOC 

INPUT T (1,J) 

NEXT J 

NEXT | 

FOR | = 1TOF 

LET M = 7 (1,1) : LET Y = 1 

FOR J = 2TO0C 

IF T (1,3) < M THEN LETM =7 (1,J) : LET Y =J 
NEXT J 

FOR X = 1TOF 

IF (T(X, Y) > M) AND (X < > 1) THEN GOTO 190 
NEXT X 

PRINT “EL MENOR DE LA FILA”; |; “Y A LA VEZ EL MAYOR 
DE LA COLUMNA”; Y; “ES”; M 

NEXT | 

END 


1 0) Listas y tablas de cadenas 
Programas resueltos con DIM AS$(N) y DIM AS$(N,M) 


RESUMEN DE LAS INSTRUCCIONES 


DIM AS(N) 


Esta instrucción reserva posiciones de memoria, en las que se almace- 
narán las cadenas correspondientes a los elementos de la lista AS. 
(En algunos microordenadores, si N es menor o igual que 10, esta 
instrucción se puede omitir, pues la reserva se hace automáticamente 
al utilizar los elementos de la lista A$.) 


y 


Ejemplo 
La instrucción 
10 DIM A$(N) 


reserva posiciones de memoria para las cadenas que se asignan a los elementos 
A$(1), A$(2), ..., A$(20) de la lista A$. Al principio se les asigna la cadena vacía. 


Observaciones 


— En los microordenadores que comienzan a contar desde cero los elementos de 
la lista A$, del ejemplo anterior, son A$(0), A$(1), A$(2), ..., A$(20). 

— En los microordenadores tipo ZX Spectrum hay que especificar en la instruc- 
ción DIM el número máximo de caracteres que puede tener las cadenas de la 
lista. Si, por ejemplo, el número máximo de caracteres es 50, la instrucción del 
ejemplo hay que sustituirla por 


10 DIM A$(20,50). 


DIM AS(N,M) 


Esta instrucción reserva posiciones de memoria en las que se almace- 
narán las cadenas correspondientes a los elementos de la tabla A$. 
(En algunos microordenadores, si N y M son menores o iguales que 
10, esta instrucción se puede omitir.) 


Ejemplo 
La instrucción 
50 DIM Af$ (5,4) 


reserva posiciones de memoria para los 5 x 4 = 20 elementos de la variable de 
dos índices A$. En este caso, la tabla tiene cinco filas y cuatro columnas. 


mn + 


Inicialmente, a los elementos de A$ se les asigna la cadena vacía. 


Observaciones 


— En los microordenadores que comienzan a contar desde cero, se reservarían 6 
x 5 = 30 posiciones de memoria para los 30 elementos de la variable A$, al 
tener seis filas (0, 1, 2, 3, 4, 5) y cinco columnas (0, 1, 2, 3, 4). 


01234 


DD Bb Uu 
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— En los microordenadores tipo ZX Spectrum hay que especificar en la instruc- 
ción DIM el número máximo de caracteres que pueden tener las cadenas de 
las tablas. Si, por ejemplo, el número máximo de caracteres es como 50, la 
instrucción del ejemplo hay que sustituirla por 


50 DIM AS (5,4,50) 


PROGRAMAS RESUELTOS EXPLICADOS ms 


10.1. Explica qué función cumple el siguiente programa: 


10 
20 
30 
40 
50 
60 
70 


100 


DIM M$(12) (*) 


FOR | = 1T0 12 
READ M$(1) 
NEXT | 


DATA “ENERO”, “FEBRERO”, “MARZO”, “ABRIL” 
DATA “MAYO”, “JUNIO”, “JULIO”, “AGOSTO” 

DATA “SEPTIEMBRE”, “OCTUBRE”, “NOVIEMBRE”, 
“DICIEMBRE” 

END 


Por medio del bucle 20 - 40 y la instrucción 30 READ M65(l), este 
programa asigna a los elementos de la lista M$ los meses del año, 
almacenándolos en la memoria. 


10.2. Escribe un programa que almacene en la memoria los días de la 
semana y los imprima en la pantalla. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 


DIM D$(7) (**) 


FOR | = 1T0 7 
READ D$(1) 
NEXT | 

FOR J = 1T0 7 
PRINT D$()) 
NEXT J 


DATA “LUNES”, “MARTES”, “MIERCOLES”, “JUEVES” 
DATA “VIERNES”, “SABADO”, “DOMINGO” 
END 


— La instrucción 10 declara una lista D$ de siete elementos. 

— El bucle 20 - 40 asigna a los elementos de la lista D$ los días 
de la semana. 

— El bucle 50 - 70 imprime el contenido de la lista D$; es decir, 
los días de la semana. 


(*) Para el ZX Spectrum, cambiar por 10 DIM M$ (12,10). 
(**) Para el ZX Spectrum, cambiar por 10 DIM D$ (7,9). 
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AA PROGRAMAS RESUELTOS "+ 


10.1. Escribe un programa que almacene en una variable A$(I) los días de la se- 


mana y 


los imprima junto con su longitud. 


(N.2 de caracteres) 


10 
20 
30 
40 
50 
60 
70 
80 
90 


10.2. Escribe 


DIM A$(7) (*) 

FOR | = 110 7 

INPUT “DIA DE LA SEMANA”; A5(1) 
NEXT | 

FOR | = 1 TO 7 

LET N = LEN (A$(1)) 

PRINT A$(1), N 

NEXT | 

END 


un programa que almacene en una variable A$(1,J) los meses del 


año junto con su duración y que imprima la tabla. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 


120 
130 


140 
150 


DIM A$(12,2) (**) 

FOR | = 1 TO 12 

FOR J = 17102 

READ A5(l,J) 

NEXT J 

NEXT | 

REM IMPRESION DE LA TABLA 
FOR | = 1 TO 12 

PRINT A$(1,1), A$(1,2) 

NEXT | 

DATA “ENERO”, “31”, “FEBRERO”, "28 Ó 29”, “MARZO”, 
ug" 


DATA "ABRIL”, “30”, “MAYO”, “31”, “JUNIO”, “30” 

DATA “JULIO”, “31”, “AGOSTO”, “31”, “SEPTIEMBRE”, 
“30” 

DATA “OCTUBRE”, “31”, “NOVIEMBRE”, “30”, “DICIEM- 
BRE”, .3g" 

END 


(*) Para el ZX Spectrum, cambiar por 10 DIM A$ (7,9). 
(**) Para el ZX Spectrum, cambiar por 10 DIMAS (12,2). 
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10.3. Haz un programa que lea varios nombres, forme una lista con todos los 
que empiezan por A y la imprima. 


10.4, 


10 


20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 


PRINT “INTRODUCIR APROXIMADAMENTE Y POR EXCESO 
EL NUMERO DE NOMBRES QUE EMPIEZAN POR A” 

INPUT N 

DIM A$(N) 

LET | = 1 

INPUT “NOMBRE (PARA TERMINAR INTRODUCIR UN 1)”; X$ 
IF X$ = “1” THEN GOTO 90 

IF LEFTS (X$, 1) = “A” THEN LET A$(1) = X$ : LETI|=1+ 1 
GOTO 50 

FOR K = 1TO 1-1 

PRINT A$(K) 

NEXT K 

END 


En el ZX Spectrum sustituir las instrucciones 30 y 70 por 
30 DIM A$(N,50) 
se supone que ningún nombre tiene más de 50 caracteres. 
70 IF X$(1 TO 1) = “A” THEN LET A5(I) = X$ : LETI=1+1 


Escribe un programa que lea una lista de nombres y elimine los que están 
duplicados. 


Este ejercicio admite dos interpretaciones: 


a) Eliminar el original y los que le dupliquen. 
b) Eliminar sólo los que dupliquen a un original. 


a) 10 
20 
30 
40 
50 
60 
70 
80 
90 

100 
110 
120 
130 
140 
150 
160 
170 


INPUT “NUMERO DE NOMBRES”; N 

DIM A$(N) 

FOR | = 1TO N 

INPUT A$(I) 

NEXT | 

FOR | = 1TON 

LETR=0 

FOR J=ITON 

IF AS(1) = A$(1) THEN LET A$()) =” ": LETR=1 
NEXT J 

IFR = 1 THEN LET A$(1) = ” ” 

NEXT | 

REM IMPRESION DE LOS NOMBRES NO DUPLICADOS 
FOR |=1TON 

IF AS(I) <> ” ” THEN PRINT A5(1) 

NEXT | 

END 


10.5. 


b) Basta con eliminar las instrucciones 70 y 110, y sustituir la 90 por la 
siguiente: 


90 IF AS(1) = X$ THEN LET A$()) =" ” 


Nota: En el ZX Spectrum sustituir la instrucción 20 por 


20 DIM A$(N,50) 
(se supone que la longitud máxima de los nombres es 50). 


Diseñar un programa que lea dos listas de nombres y forme una tercera 
con los nombres comunes a ambas. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 


200 
210 
220 


230 
240 
250 
260 


INPUT “NUMERO DE NOMBRES DE LA PRIMERA”; N 
INPUT “NUMERO DE NOMBRES DE LA SEGUNDA”; M 
DIM AS(N) 

DIM B$(M) 

IF N > M THEN LETP = M: GOTO 70 

LETP=N 

DIM C$(P) 

REM ENTRADA DE LAS LISTAS 

FOR | = 1 TON 

INPUT AS(1) 

NEXT | 

FOR J = 1 TO M 

INPUT B5()) 

NEXT) 

REM BUSQUEDA DE LOS NOMBRES COMUNES 
LETR=1 

FOR | =1TON 

FOR ) = 1 TO M 

IF B$(1) = AS() THEN LET CS(R) = AS() : LETR=R+1: 
GOTO 210 

NEXT) 

NEXT | 

REM IMPRESION DE LA LISTA CON LOS NOMBRES CO- 
MUNES 

FORK =1TOR-1 

PRINT C$ (K) 

NEXT K 

END 


Nota: En el ZX Spectrum sustituir las instrucciones 30, 40 y 70 por 


30 DIM A$(N,50) 
40 DIM B$(M,50) 
70 DIM C$(P,50) 


(se supone que la longitud máxima de los nombres es 50). 
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10.6. Las siete empresas españolas que registraron mayores ventas en 1982 fue- 
ron las siguientes: 


Ventas Beneficios 
(mill. de ptas.) (mill. de ptas.) Empleados 


Campsa 1.094.685 
Empetrol 522.615 


Cepsa 381.809 
Telefónica 266.392 
Fasa-Renault 184.432 
Iberia 183.347 
Petronor 182.616 


Escribe un programa que almacene estos datos en una tabla de caracteres, 
transforme las ventas, beneficios y número de empleados a valores numé- 
ricos y los almacene en una tabla numérica. Por último, deberá imprimir 
dos columnas, la primera con la relación ventas por empleado (V/E) y la 
segunda con la relación beneficios por empleado (B/E). 


10 DIM A$(7.4) (*) 

20 DIMB (7, 3) 

30 REM ENTRADA DE DATOS POR EMPRESA 
40 FORI=1T07 

50 FORJ=1T04 

60 INPUT A$(l,J) 

70 NEXT J 

80 NEXT | 

90 REM FORMACION DE LA TABLA NUMERICA 
100 FOR|=1T07 
110 FORJ=1T03 
120 LETB (1,1) = VAL (A$(1,J + 1) 
130 NEXT J 
140 NEXT | 
150 REM IMPRESION DE LAS RELACIONES V/E Y B/E 
160 FORI=1T07 
170 PRINT B (1,1)/B(1,3), B(1,2)/B(l,3) 
180 NEXT | 
190 END 


10.7. Basándote en el ejercicio anterior, diseña un programa que determine en 
qué empresa la relación ventas por empleado (V/E) es mayor y también la 
empresa en la que la relación beneficios por empleado es mayor (B/E). 


(*) Para el ZX Spectrum, cambiar por 10 DIM A$ (7,4,15). 
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Basta con sustituir en el progrma del ejercicio anterior el bloque de ins- 
trucciones 150 - 190 por el siguiente: 


150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 


REM EMPRESA DE MAYOR V/E 

LETR = 1 

LET M = B(1,1)/B(1,3) 

FOR J =2T0 7 

IF B(J,1)/8(1,3) > M THEN LET M = B(J,1)/B(1,3) : LETR =J 
NEXT J 

PRINT “LA EMPRESA”; A$(R,1); “ES LA DE MAYOR V/E”; M 
REM EMPRESA DE MAYOR B/E 

LETR =1 

LET M = B(1,2)/B(1,3) 

FOR J = 210 7 

IF B(J,2)/B(1,3) > M THEN LET M = B(4,2)/B(1,3) : LETR =J 
NEXT J 

PRINT “LA EMPRESA”; A$(R,1); “ES LA DE MAYOR B/E”; M 
END 
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1 1 Funciones 


Programas resueltos con SGN, ABS, INT, RND, etc. 


RESUMEN DE LAS INSTRUCCIONES 


El lenguaje BASIC utiliza varias funciones matemáticas, cuyo nombre, notación y 


características se transcriben en esta tabla. 


Noria Notación | Notación alos 
algebraica | en BASIC 
o l 
>0 
Signo sgn x SGN (X) OsiX=0 
=1SX<0 
Xsix>0 
Valor absoluto IX: ABS (X) XX <E0 
HAHN) 
; XsiX=>0 
Raíz cuadrada Vx SQR (X) Or N <= 
Parte entera de X 
Parte entera E (x) INT (X) (el entero más próximo 
A igual o menor que X) 
a nt cc 
LOG (X) 
nx six>0 
Logaritmo natural (LN[X], A 
O neperiano Inx en ZX Oral ] qn . 
Spectrum) error siX< 
potencias del número 3, 
Exponencial e EXP (X) de exponente X (e = 


Seno 


Sen X 


SIN (9) 


= 2,71828) 
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seno de X (X, ángulo 
de radianes) 


Notación | Notación 


em algebraica | en BASIC Valor 
de X (X, ángul 
| Coseno COS X COS (X) | pe a (X, ángulo 
l di | 
Tangente tg x TAN (X) tangente de X (X, ángulo 


de radianes) 


arco cuya tangente 


Arco tangente pue 


RND 


Esta función genera un número aleatorio entre 0 y 1, excluido este 
último. 


y 


Ejemplo 
La instrucción 
10 LETX = RND 
asigna a la variable X un número aleatorio comprendido entre 0 y 1, excluido este 
último. 
Observaciones 


e Esta función toma formas distintas según los microordenadores. En algunos 
hay que poner un número entre paréntesis a continuación de RND. 


Ejemplo: 
10 LETX = RND (1) 


e En los microordenadores MSX hay que utilizar RND (1) y además, al principio 
del programa, se debe poner una asignación del tipo 


10 Z = RND (-TIME) 
donde la variable Z puede ser sustituida por cualquier otra. 


e En los microordenadores ZX Spectrum hay que utilizar RND y añadir al princi- 
pio del programa la instrucción: 


10 RANDOMIZE 
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DEF FN 
Esta instrucción sirve para definir funciones. 


y 


Ejemplos 
e La instrucción 
10 DEFFNA(X)=X 7 5 


define la función FN A de variable X, como la quinta potencia de X. (Para 
definir otra función hay que cambiar la letra A.) 


e La instrucción 
10 DEF FN Z$(N) = STR$(N) + ” il 
define la función de cadena FN Z$ de variable N, de acuerdo a este criterio: 


para todo número N, da como resultado una cadena formada por las cifras de 
N seguida de cuatro espacios en blanco. 


FN A(X) 
Da el valor de la función FN A, previamente definida, para el valor X. 


y 


Ejemplo 
La instrucción 
50 Z=FNA(3) 


asigna a Z el valor de la función FN A para el valor 3. 


Observación 


La definición de una función DEF FN debe estar antes de su utilización FN en el 
programa. 
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PROGRAMAS RESUELTOS EXPLICADOS ooo 


11.1, 


Haz un programa que exprese una cantidad de segundos, en 


horas, 


10 
20 
30 
40 
50 
60 
70 
80 
90 


— En 


minutos y segundos. 


INPUT “SEGUNDOS”; S 
LET M = INT (5/60) 
LETS=S-—Mx60 
LET H = INT (M/60) 
LETM=M-Hx60 
PRINT H; “HORAS” 
PRINT M; “MINUTOS” 
PRINT S; “SEGUNDOS” 
END 


la línea 10 se introducen los segundos, y en la línea 20 se 


pasan a minutos, tomando sólo la parte entera. 
— La línea 30 determina el número de segundos S sobrantes. 


— La 


línea 40 pasa los minutos a horas, tomando sólo la parte 


entera. 
— La línea 50 determina el número de números M sobrantes. 
— Las líneas 60, 70 y 80 imprimen el resultado. 


Haz un programa que exprese en grados, minutos y segundos la 
amplitud de un ángulo dado en segundos. 


Este programa es similar al anterior. Para obtenerlo, basta con 
sustituir horas por grados. 


10 
20 
30 
40 
50 
60 
70 
80 
90 


— La 


INPUT “SEGUNDOS”; S 
LET M = INT (5/60) 
LETS=S-— Mx 60 
LET G = INT (M/60) 
LETM=M-G*60 
PRINT G; “GRADOS” 
PRINT M; “MINUTOS” 
PRINT S; “SEGUNDOS” 
END 


instrucción 20 pasa los segundos a minutos, tomando su 


parte entera. 

— La instrucción 30 calcula los segundos sobrantes. 

— La instrucción 40 pasa los minutos a horas, tomando su parte 
entera. 
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— La instrucción 50 calcula los minutos sobrantes. 
— Las instrucciones 60, 70 y 80 imprimen los resultados. 


Indica qué escribirá en la pantalla el siguiente programa, si en el 
momento de su ejecución se introduce 0.451966. 


10 INPUT “INTRODUCE X”; X 

20 LET Y = INT (X * 1000 + 0.5) / 1000 
30 PRINT Y 

40 END 


La línea 20 llega al resultado después que el microordenador 
hace estos cálculos: 


X = 0.451966 

X * 1000 = 451.966 

X * 1000 + 0.5 = 452.466 

INT (X * 1000 + 0.5) = 452 

INT (X * 1000 + 0.5) / 1000 = 0.452 
Y = 0.452 


Luego el resultado que aparece en la pantalla es 0.452. 


Realiza los cálculos indicados en las siguientes expresiones para 
X = -3.1482. 


a) INT(Xx* 10 + 0.5) / 10 
b) INT (X * 100 + 0.5) / 100 
c) INT (X * 1000 + 0.5) / 1000 


a) X*10= -31.482 
X * 10 + 0.5 = -30.982 
INT (X * 10 + 0.5) = -31 
INT (X * 10 + 0.5) / 10 = -3.1 


b) Xx* 100 = -314.82 
X * 100 + 0.5 = -314.32 
INT (X * 100 + 0.5) = -315 
INT (X * 100 + 0.5) / 100 = -3.15 


Cc) Xx* 1000 = -3148.2 
X * 1000 + 0.5 = -3147.7 
INT (X * 1000 + 0.5) = -3148 
INT (X * 1000 + 0.5) / 1000 = -3.148 


Observación: Lo que realmente se hace es redondear el nú- 


mero X = -3.1482 a un decimal, a dos decimales y a tres deci- 
males, respectivamente. 
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Escribe los programas que permitan redondear: 


a) 


b) 


c) 


a) 


A una cifra decimal. 
A dos cifras decimales. 
A n cifras decimales. 


10 INPUT X 

20 LET Y = INT (X * 10 + 0.5) / 10 
30 PRINT Y 

40 END 


Si, por ejemplo, X = 3.152, en la línea 20 se tendrá lo si- 
guiente: 


X * 10= 31.52 

X* 10 + 0.5 = 32.02 

INT (X * 10 + 0.5) = 32 

INT (Xx 10 + 0.5) / 10 = 3.2 


10 INPUT X 

20 LET Y = INT (X * 100 + 0.5) / 100 
30 PRINT Y 

40 END 


Si, por ejemplo, se toma X = 21.342 en la línea 20 se ten- 
drá lo siguiente: 


X * 100 = 2134.2 

X * 100 + 0.5 = 2134.7 

INT (X * 100 + 0.5) = 2134 

INT (Xx 100 + 0.5) / 100 = 21.34 


Si para redondear a una cifra decimal hay que multiplicar 
por 10 y dividir por 10 y para redondear a dos cifras deci- 
males hay que multiplicar por 100 y dividir por 100, parece 
lógico pensar que para redondear a N cifras decimales hay 
que multiplicar por 10% y dividir por 10". 


10 INPUT X 

20 INPUT “DECIMALES”; N 

30 LETY =INT(X* 10 $ N+0.5)/10 $ N 
40 PRINT Y 

50 END 
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11.6. Haz un programa que simule el lanzamiento de una moneda. 


10 LETC=0:LETZ=0 

20 INPUT “INTRODUCE N (NUMERO DE LANZAMIENTOS)”; N 
30 FORI=1TON 

40 LETX = INT (RND(1) * 2 + 1) 
50 IFX= 1THENLETC=C+1 
60 IFX=2THENLETZ=Z+1 
70 NEXT | 

80 CLS 

90 PRINT : PRINT “EN”; N; “LANZAMIENTOS HA SALIDO:” 
100 PRINT : PRINT “x”; C; “VECES CARA” 
110 PRINT : PRINT “*”; Z; “VECES CRUZ" 
120 END 


— Las variables C y Z guardan el número de caras y el número 
de cruces, respectivamente. 

— El bucle 30 - 70 simula los N lanzamientos. 

— En la línea 40 se obtienen los números aleatorios 1 y 2, que 
representan cara y cruz. 

— Las instrucciones 90, 100 y 110 imprimen los resultados. 


Nota: En los microordenadores MSX se debe añadir la instruc- 
ción 5 A = RND (TIME), y en los microordenadores ZX 
Spectrum hay que añadir la instrucción 5 RANDOMIZE y 
sustituir la línea 40 por 40 LET X = INT (RND « 2 + 1). 


11.7. Indica qué números al azar generan las siguientes instrucciones: 
a) X= INT (RND (1) * 9) 


b) X= INT (RND (1) x 8 + 1) 
c) X= INT (RND (1) «+ 10 + 11) 
a) En este caso, X variará entre 0* 9 = 0 y 1 x 9 = 9, éste 


excluido: (0 < X < 9). Al tomar la parte entera se tiene: 
X=01 1, 2,3, 4 0, 6, Z; Ss 

b) Los valores de X estarán entre 0x8+ 1=1y1*8+1=09, 
éste excluido: (1 < X < 9). Al tomar la parte entera, se tiene: 
=> Mil iD Oj dis 

c) Los valores de X estarán entre 0 * 10 + 11 = 11 y 1 * 10 + 
+ 11 = 21, éste excluido: (11 < X < 21). Al tomar la parte 
entera se tiene: X = 11, 12, 13, 14, 15, 16, 17, 18, 19, 20. 


11.8. Escribe un programa que genere al azar los números 10, 11, 12, 
13 y 14. 


10 LETX = INT (RND (1) + 5 + 10) (*) 
20 PRINT X 
30 END 


(*) Enel ZX Spectrum, sustituir (RDN (1) por RND. 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
1 


0 


11.10. 


Los valores de X están comprendidos entre 0 * 5 + 10 = 10 y 
1x5 + 10 = 15, éste excluido: (10 < X < 15). Al tomar la 
parte entera, se obtienen los valores X = 10, 11, 12, 13, 14. 


Indica qué función define el siguiente programa y qué imprime 
en la pantalla. 


DEF FNR (X) =X 1 4 
FOR X = 1 TO 10 
PRINT X, FN R(X) 
NEXT X 


END 


Este programa define la función cuarta potencia e imprime en la 
pantalla una tabla de dos columnas. En la columna izquierda es- 
cribe los números del 1 al 10, y en la derecha, sus respectivas 
potencias cuartas. 


Escribe un programa que defina una función para calcular los 
cubos de los veinte primeros números naturales, y después los 
imprima. 

10 DEF FN C(X) = X 73 

20 FORX= 1TO 20 

30 PRINT FIN C(X) 

40 NEXT X 

50 END 


— La instrucción 10 define la función FN C(X). 
— La instrucción 30 calcula e imprime la función FN C(X) para 
X= dl 20, 
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11.11. Haz un programa que defina la función polinómica 3X? + 2X + 1 
e imprima una tabla para valores de X comprendidos entre —2 y 2, 
ambos inclusive, incrementando X en 0.1. 


10 DEFFN Y(X) =3*X 7 2+2*X+1 
20 FOR|= -2T0 2 STEP 0.1 

30 PRINT 1, FN Y(I) 

40 NEXT | 

50 END 


— La instrucción 10 define la función. 

— El bucle 20 - 40 imprime la tabla de valores. Observar que los 
valores que va tomando la variable | se sustituyen en el lugar 
de X en la instrucción 20. 


11.12. Explica qué hace el siguiente programa; 


10 DEFFNA(X) =X 7 2 

20 DEFFN B(X)=X 1 3 

30 DEFFNS(X)=X $ 2+X 1 3 
40 FORX= 170 10 

50 PRINT X, EN S(X) 

60 NEXT X 

70 END 


— Este programa define tres funciones FN A(X), FN B(X), FN 
S(X) que calculan el cuadrado de X, el cubo de X y la suma 
del cuadrado y el cubo de X, respectivamente. 

— El bucle 40 - 60 imprime una tabla con los valores de X del 1 
al 10 y el valor de la función FN S(X) para estos valores. 


11.1. Define una función para cada una de las siguientes fórmulas: 


Y a) a A 
b) DEF FN Y(X) =3*X 1 2 
b) Y=3% - Íx+5 a 
C) DEF FN Y(X 5 PX 
dd Y=Xx-5* d) DEF de e 
d) Y=X+EX e) DEF FN Y(X) = X + ABS(X) + 
e) Y=X+/X/+EX) +INT(X) 
r 21 f) O 
0 is x= : +X $ 2-(X 1 3-1)/5 


11.2. Calcula el valor de FN A(6.285) si la función FN A(X) se define así: 


11.3. 


11.4. 


11.5. 


10 DEF FN A(X) = X — INT(X) 


FN A(6.285) = 6.285 — INT (6.285) = 6.285 — 6 = 0.285 
Se obtiene la parte decimal del número. 


Indica qué precauciones hay que tener a la hora de utilizar las siguientes 
funciones en un programa: 


a) 
b) 


a) 


5 DEF FN B(X) = 1 / (2X — 1) 
20 DEF FN C(X) = 5 / (X? — 1) 
En primer lugar, hay que escribir la línea correctamente respetando 
la sintaxis del lenguaje BASIC. 

5 DEF FN B(X) = 1/(2 * X — 1) 
La precaución que hay que tener es no dar a X valores excesiva- 
mente próximos a 0.5, pues, en caso contrario, el denominador sería 
un valor muy próximo a cero, para el cual la función no tiene valor. 
Si esto ocurriera se emitiría un mensaje de error. 
En primer lugar, hay que escribir correctamente la línea 20: 

20 DEF FN C(X) = 5/(X A 2 — 1) 
La precaución que hay que tener es no dar valores a X muy próximos 
a 1 y a -—1 para evitar que el denominador adquiera valores muy 


próximos a cero, para los que la función no tiene valores. Se evita 
así que se emita un mensaje de error. 


Escribe un programa que dé el valor absoluto de un número sin utilizar 
la función ABS(X). 


10 INPUT X 

20 PRINT “EL NUMERO ES:”; X 

30 IFX<O THEN LET X = —X 

40 PRINT “EL VALOR ABSOLUTO ES:”; X 
50 END 


Cuando se lanzan dos monedas, los resultados posibles son: 


+, + que se puede expresar así: 0, O 
c, + que se puede expresar así: 1, 0 
+, Cc que se puede expresar así: 0, 1 
c, Cc que se puede expresar así: 1, 1 


Haz un programa que simule el lanzamiento de las dos monedas, e im- 
prima el resultado que se produce. 
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11.6. 


11.7. 


11.8. 


MS 


10 LET X = INT (RND(1) + 2) 

20 LET Y = INT (RND(1) + 2) 

30 IF X= 0 THEN PRINT “+”; : GOTO 50 
40 PRINTF*C"; 

50 IF Y = O THEN PRINT “+” : GOTO 70 
60 PRINT “C” 

70 END 


En el ZX Spectrum, sustituir RND(1) por RND. 


Haz un programa que defina la función polinómica de tercer grado: 
f () = A + Bx? + Cx+0D 
e introduzca los valores A=3,B=2,C=1yD=0. 
Evalúa esta función desde | = 1 hasta 10, incrementando a X de 1 en 1. 
10 DEFFNF(X) =A*X 7 34+B*X 7? 2+Cx*X+D 
20 READA,B,C,D 
30 DATA3,2,1,0 
40 FORI=1T0 10 
50 PRINT FN F(l) 


60 NEXT | 
70 END 


Elabora un programa que defina la función parte decimal y escriba su va- 
lor para cualquier X que se introduzca. 

10 DEF FN D(X) = X — INT (X) 

20 INPUT X 

30 PRINT “PARTE DECIMAL:”; FN D(X) 

40 END 


¿Cómo se tiene que definir la función parte decimal si el número es ne- 
gativo? 

Si se quiere obtener las cifras decimales se debe definir la función como 
sigue: 

FN D(X) = 1 — (X — INT(X)) 

Así, por ejemplo, para X = -3.27, se tiene: 


INT 0) = 4 
N — INT (O) = -3.27 + 4 = 0.73 
1 — (X — INT (9) = 1 — 0.73 = 0.27 


Haz un programa que dé la media de dos números aleatorios, mediante 
la definición de una función. 
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11,10. 


11.11. 


11.12. 


11.13. 


10 
20 
30 


DEF FN A( ) = (RND[1] + RND (1)) / 2 
PRINT FN A( ) 
END 


Se puede observar que la función FN A( ) no tiene ningún argumento. 
En el ZX Spectrum, sustituir RND (1) por RND. 
Escribe un programa que lea un número y averigúe si es primo o com- 


puesto. 

10 INPUT N 

20 IFN < 2 THEN GOTO 10 

30 FOR | = SQR(N) TO 2 

40 IF .N/I = INT (N/I) THEN PRINT N; “NO ES PRIMO” : GOTO 70 

50 NEXT | 

60 PRINT N; “ES PRIMO” 

70 END 
Haz un programa que obtenga la lista de los números primos menores 
que ÑN. 

10 INPUT N 

20 IFN < 2 THEN GOTO 10 

30 FORK =2TON- 1 

40 FOR |= 2 TO SQR (K) 

50 IF K/l = INT (K/I) THEN GOTO 80 

60 NEXT | 

70 PRINTK 

80 NEXT K 

90 END 
Elabora un programa que descomponga un número en sus factores 
primos. 

10 INPUT N 

20 IFN < 2 THEN GOTO 10 

30 FORI|=2TON 

40 IF N/I = INT (N/) THEN PRINT | : LETN = N/ : GOTO 40 


50 NEXT | 

60 END 
Escribe un programa que lea dos números y averigúe si son primos entre 
SÍ. 

10 INPUTN, M 

20 LETX = N/M 

30 LET Y = M/N 

40 IF (X = INT(X)) OR (Y = INT(Y)) THEN PRINT N; “Y”; M; 

"NO SON PRIMOS ENTRE SI” : GOTO 60 
50 PRINTN; “Y”; M; “SON PRIMOS ENTRE SI” 
60 END 
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11.14. Realiza un programa que lea dos números y averigúe si tienen factores 
primos comunes. 


10 INPUT N, M 

20 IFN <20R M < 2 THEN GOTO 10 
30 FORK=2TON 

40 FOR! = 2 TO SQR(K) 

50 IF K/l = INT (K/1) THEN GOTO 80 
60 NEXT | 

70 IF M/K = INT (M/K) THEN PRINT K 
80 NEXT K 

90 END 


11.15. Elabora un programa que defina la función f(x) = -0.5X? — X + 6, cal- 
cule una tabla de valores incrementando a X de 0.5 en 0.5 e imprima la 
tabla. 


10 DEF FN F(X) =-0.5*X f 2- X+6 
20 FOR X= -6T0 4 STEP 0.5 

30 PRINT X, FN F(X) 

40 NEXT X 

50 END 


Los valores de X se han tomado entre -6 y 4, pues el vértice de la pará- 
bola que representa a la función tiene por abscisa X = —1. 


11.16. Escribe un programa que genere e imprima una tabla de valores para la 
función f (x) = sen X, entre X = 0 y X = 6.28, e incrementando a X de 
0.2 en 0.2. (Con la tabla obtenida, representa esta función en papel mili- 
metrado.) 


146 


10 FOR X = OTO 6.28 STEP 0.2 
20 PRINT X, SIN(X) 

30 NEXT X 

40 END 


11.17. Haz lo mismo que en el ejercicio anterior con la función f (x) = cos X. 


10 FOR X = 0 TO 6.28 STEP 0.2 
20 PRINT X, COS(X) 

30 NEXT X 

40 END 
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1 ) Subrutinas 


Programas resueltos con GOSUB - RETURN, 
ON ... GOSUB, ON ... GOTO 


RESUMEN DE LAS INSTRUCCIONES 


GOSUB 


Esta instrucción transfiere el control a la instrucción en la que co- 
mienza la subrutina. 


y 


Ejemplo 
Cuando se ejecuta la instrucción 
30 GOSUB 1000 


el microordenador envía el control a la instrucción 1000, para que se ejecute la 
subrutina que comienza en esa línea. 


RETURN 


Devuelve el control a la instrucción siguiente a la GOSUB que previa- 
mente había transferido el control a la subrutina. 


Ejemplo 
Cuando se ejecuta la línea 
1200 RETURN 


el microordenador devuelve el control a la línea siguiente a la GOSUB, que había 
llamado previamente a la subrutina. 
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ON ... GOSUB 


Esta instrucción transfiere el control a una o a varias subrutinas. 


y 


Ejemplo 
La instrucción 
50 ON V GOSUB 1000, 2000, 3000, 500 


envía el control a las subrutinas 1000, 2000, 3000 ó 500, según que V valga 1, 2, 
3 Ó 4, respectivamente. 


ON ... GOTO 
Esta instrucción transfiere el control a una o a varias líneas. 


y 


Ejemplo 
La instrucción 
70 ON V GOTO 100, 50, 400 


envía el control a las instrucciones 100, 50 ó 400, según que V valga 1, 2 ó 3, 
respectivamente. 
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PROGRAMAS RESUELTOS EXPLICADOS ooo 


12.1. 


Explica cómo funciona el siguiente programa al ser ejecutado: 


10 INPUT "A="; A 
20 INPUT “B="; B 
30 GOSUB 200 
40 GOSUB 300 
50 PRINT “P="; P; "C="; C 
60 GOTO 10 
200 REM PRODUCTO 
210 LETP=A*B 
220 RETURN 
300 REM COCIENTE 
310 LETC=A/B 
320 RETURN 
400 END 


— En este programa se pueden distinguir tres partes: 
el programa principal (líneas 10-60), la subrutina producto (lí- 
neas 200-220) y la subrutina cociente (líneas 300-320). 

— Las líneas 10 y 20 piden valores para A y B. 

— La línea 30 llama a la subrutina producto, en la cual se calcula 
el producto P de A y B. 

— La línea 40 llama a la subrutina cociente, en la cual se calcula 
el cociente C de A y B. 

— La línea 50 imprime los resultados. 

— La línea 60 envía el control a la línea 10 para que se vuelva a 
ejecutar el programa. 


Indica lo que ocurrirá al ejecutarse el siguiente programa: 


10 READ A 

20 GOSUB 100 

30 PRINTA, B, € 
100 REM SUBRUTINA 
110 LETB=Af2 
120 LETC=Af 3 
200 DATA 3, 2, 1,8,4 
210 GOTO 10 
220 END 


— En primer lugar hay que advertir que este programa tiene un 
error: un GOSUB sin RETURN. 

— Su ejecución comienza en la línea 10, asignando a la variable 
A el valor —3. 

— La instrucción 20 transfiere el control a la 100. 
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— Las líneas 110 y 120 calculan el cuadrado y el cubo de A = —3. 
(En el ZX Spectrum se produciría un error al no poder calcular 
potencias de números negativos.) 

— La línea 210 transfiere el control a la línea 10 y se vuelve a re- 
petir el proceso anterior para A = 2. 

— Cuando se termine el proceso para todos los valores de A se 
producirá un error por falta de datos. 


12.3. Escribe un programa con dos subrutinas, una para sumar dos nú- 
meros introducidos por el teclado y la otra, para restarlos. 


10 INPUT A, B 
20 GOSUB 100 
30 GOSUB 200 
40 END 
100 REM SUMA 
110 LETS=A+B 
120 PRINT “SUMA ="; S 
130 RETURN 
200 REM RESTA 
210 LETR=A-B 
220 PRINT “RESTA ="; R 
230 RETURN 
— Este programa consta de tres partes: el programa principal (lí- 
neas 10-40), la subrutina suma (líneas 100-130) y la subrutina 
resta (líneas 200-230). 
— Desde el programa principal se llama a las subrutinas para que 
realicen las tareas de suma y resta. 


12.4. Haz un programa que genere un número aleatorio entero com- 
prendido entre O y 10, éste excluido, y que permita introducir un 
número comprendido también entre O y 10. 

Además, el programa averiguará mediante una subrutina si el nú- 
mero generado coincide con el número introducido. 

10 LETX = INT (RND(1) * 10) 

20 INPUT “ENTERO ENTRE 0 Y 10”; N 

30 GOSUB 100 

40 END 

100 REM SUBRUTINA 

110 IF X= N THEN PRINT “SI COINCIDEN” : GOTO 130 

120 PRINT “NO COINCIDEN” 

130 RETURN 
— En la línea 10 se calcula el número aleatorio X. 
— En la línea 20 se introduce el número N. 
— La instrucción 30 llama a la subrutina 100, que compara estos 

números. 
En el ZX Spectrum, sustituir RND(1) por RND. 
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pr PROGRAMAS RESUELTOS +20 


12.1. 


12.2. 


Completa el programa siguiente con las instrucciones necesarias para que 
se ejecute correctamente. 


10 
20 
30 
40 
100 
110 
120 
200 


INPUT “A ="; A 

INPUT “B ="; B 

PRINT“A ="; A; "B="; B, “P="; P 
GOTO 10 

REM PRODUCTO 

LETP=Ax*B 

RETURN 

END 


Hay que añadir una instrucción antes de la línea 30, que llame a la 


subrutina 


25 GOSUB 100 


Haz un programa que permita introducir dos números, calcule mediante 
cuatro subrutinas la suma, resta, multiplicación y división de dichos nú- 
meros, y después los imprima en una misma línea. 


10 
20 
30 
40 
50 
60 


70 
100 
110 
120 
200 
210 
220 
300 
310 
320 
400 
410 
420 


INPUT X, Y 

GOSUB 100 

GOSUB 200 

GOSUB 300 

GOSUB 400 

PRINT “SUMA ="; S; “RESTA ="; R; “MULTIPLICACION ="; 
M; “DIVISION ="; D 
END 

REM SUMA 

LETS =X + Y 
RETURN 

REM RESTA 

LETR =X- Y 
RETURN 

REM MULTIPLICACION 
LETM = Xx Y 
RETURN 

REM DIVISION 

LET D = X/Y 

RETURN 
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12.3. Repite el programa anterior utilizando las instrucciones READ y DATA. 
Basta con sustituir la instrucción 10 por 


10 READ X, Y 
y añadir una instrucción de datos, por ejemplo, DATA 7, 3. 


10 
20 
30 
40 
50 
60 


70 

80 
100 
110 
120 
200 
210 
220 
300 
310 
320 
400 
410 
420 


READ X, Y 

GOSUB 100 

GOSUB 200 

GOSUB 300 

GOSUB 400 

PRINT “SUMA ="; S; “RESTA ="; R; “MULTIPLICACION ="; 
M; “DIVISION ="; D 
DATA 7, 3 

END 

REM SUMA 

LETS =X+Y 
RETURN 

REM RESTA 

LETR =X- Y 
RETURN 

REM MULTIPLICACION 
LETM =X* Y 
RETURN 

REM DIVISION 

LET D = X/Y 
RETURN 


12.4. Escribe lo que imprime el siguiente programa al ser ejecutado. 


10 
20 
30 
40 
50 
60 
100 
110 
120 
200 
210 
220 
300 
310 
320 
400 


READ A, B, C 

GOSUB 100 

GOSUB 200 

GOSUB 300 

GOTO 400 

DATA 1, 2, 3 

REM SUBRUTINA 1 

PRINT A; B; C 

RETURN 

REM SUBRUTINA 2 

PRINTA $ 2B $ 2C 12 
RETURN 

REM SUBRUTINA 3 

PRINTA $ 38 $ 3,C 13 
RETURN 

END 
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12.5. 


12.6. 


Imprimirá los valores de A, B y C, sus cuadrados y sus cubos. 


Elabora un programa que lea cuatro números positivos y mediante tres 
subrutinas imprima en tres líneas: 


— los cuatro números leídos, 
— su respectiva parte entera y 
— su respectiva parte decimal. 


10 
20 
30 
40 
50 
100 
110 
120 
200 
210 
220 
300 
310 
320 


INPUT A, B, C,D 

GOSUB 100 

GOSUB 200 

GOSUB 300 

END 

REM SUBRUTINA 1 

PRINT A; B; C; D 

RETURN 

REM SUBRUTINA 2 

PRINT INT (A); INT (B); INT (C); INT (D) 
RETURN 

REM SUBRUTINA 3 

PRINT A — INT (A); B — INT (B); C — INT (C); D — INT (D) 
RETURN 


Haz un programa que genere dos números aleatorios enteros A y B del 1 
al 6, ambos inclusive, y mediante una subrutina averigúe cuál de ellos es 
el mayor, dando un mensaje al respecto. 


El programa permitirá repetir el proceso todas las veces que se desee, y 
la ejecución del mismo deberá interrumpirse entre dos procesos suce- 


SIVOS. 


10 
20 
30 
40 


LET X = INT (RND(1) * 6 + 1) 
LET Y = INT (RND(1) * 6 + 1) 

GOSUB 100 

INPUT “PARA REPETIR EL PROCESO PULSAR 1”; N 
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50 

60 
100 
110 
120 
130 
140 


IF N = 1 THEN GOTO 10 

END 

REM SUBRUTINA 

IF X > Y THEN PRINT X; “ES MAYOR QUE”; Y 
IF X < Y THEN PRINT Y: “ES MAYOR QUE”; X 
IF X = Y THEN PRINT X; “ES IGUAL QUE”; Y 
RETURN 


12.7. Dibuja lo que imprimiría el siguiente programa al ser ejecutado, si se in- 
troduce el valor 1 para A. 


12.8. 


1 
10 
20 
30 
40 
50 

100 
110 
120 
200 
210 
220 
300 


CLS 

INPUT A 

ON A GOSUB 100, 200 
IFA > 2 THEN GOTO 300 
LETA=A+1 

GOTO 20 

REM SUBRUTINA 1 


RETURN 

REM SUBRUTINA 2 

PRINT Moo ARA ARA RRA ARA 
RETURN 

END 


Al ejecutarlo para A = 1 imprimirá una línea de guiones por medio de la 
subrutina 1. 


¿Qué imprimirá el programa anterior si se introduce el valor 2 para A? 
¿Y si se introduce el valor 3? 


Para A = 2 imprimirá una fila de asteriscos. Y para A = 3 no imprimirá 


nada. 
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123 


12.10. 


Cambia la instrucción 20 del programa escrito en el ejercicio 12.7, por 
20 ON A GOTO 100, 200 y analiza lo que aparecería en la pantalla al 
ser ejecutado, con los valores 1, 2 y 3 para A. 


— SIA = 1, la instrucción 20 envía el control a la línea 100 imprimién- 
dose una fila de opciones y un mensaje de error por no encontrarse 
antes de la instrucción 120 RETURN una instrucción GOSUB que 
transfiera el control a la subrutina. 


— SIA = 2, la instrucción 20 envía el control a la línea 200, se imprime 
una fila de asteriscos y se produce un error por no encontrarse antes 
de la instrucción 220 RETURN una instrucción GOSUB que transfiere 
el control a la subrutina. 


— Si A = 3, el programa se ejecutaría sin imprimir nada. 


El siguiente programa contiene una subrutina. Dibuja lo que imprime en 
pantalla al ser ejecutado. 


10 LET PROCEDIMIENTO = 200 
20 FORI|I=1T03 
30 GOSUB PROCEDIMIENTO 
40 NEXT! 
50 GOTO 300 
200 REM PROCEDIMIENTO 
210 PRINT “+” 
220 PRINT “x**" 
230 PRINT “*x*" 
240 PRINT “**x**" 
250 RETURN 40 
300 END 


En los microordenadores del tipo MSX, eliminar la línea 10 y sustituir la 
30 por 30 GOSUB 200, pues no admiten variables en un GOSUB. 


12.11. Haz un programa con una subrutina que dibuje dos veces en la pantalla 
la siguiente figura: 


12.12. Elabora un programa con tres subrutinas que dibuje tres veces la si- 
guiente figura: 
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1 3 Impresión ordenada 


Programas resueltos con PRINT TAB, PRINT AT 
y LOCATE 


RESUMEN DE LAS INSTRUCCIONES 


PRINT TAB 


Esta instrucción imprime a partir de la columna que se especifique a 
continuación de la palabra TAB 


y 


Ejemplo 
Al ejecutarse la instrucción 
10 PRINT TAB (15); “TERESA” 
se imprime la cadena “TERESA” a partir de la columna 15. 


PRINT AT 


Esta instrucción imprime a partir de la fila y la columna que se espe- 
cifique a continuación de la palabra AT. 


y 


Ejemplo 
Al ejecutarse la instrucción 
20 PRINTAT7, 10; X 
se imprime el valor de la variable X a partir de la posición determinada por la in- 
tersección de la fila 7 y la columna 10. 
Observación 


La instrucción PRINT AT la poseen los microordenadores del tipo ZX Spectrum. 
Sin embargo, la mayoría de los microordenadores tiene una instrucción que rea- 
liza la misma función, aunque con distinto formato (consultar manual). 
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LOCATE 


Esta instrucción sitúa el cursor en la columna y en la fila que se espe- 
cifique a continuación de la palabra LOCATE. 


y 


Ejemplos 
e La instrucción 
50 LOCATE 10, 5 
sitúa el cursor en la posición determinada por la intersección de la columna 10 
y la fila 5. 
e La instrucción 
60 LOCATE 10 
sitúa el cursor en la columna 10. 
e La instrucción 
70 LOCATE, 5 
sitúa el cursor en la fila 5. 


PROGRAMAS RESUELTOS EXPLICADOS 


13.1. Haz un programa que escriba como cabecera “NOMBRE” a par- 
tir de la columna 10, y “APELLIDO”, a partir de la 20. Además, 
permitirá introducir nombres y apellidos de personas, imprimién- 
dolos a partir de la columna 10 y 20, respectivamente. 


10 PRINTTAB (10); “NOMBRE”; TABB (20); “PRIMER APELLIDO" 
20 INPUT N$ 
30 INPUT A$ 
40 PRINT TAB (10); N$; TAB (20); A$ 
50 INPUT “HAY MAS NOMBRES”; X$ 
60 IF X$ = “SI” THEN GOTO 20 
70 END 
— La línea 10 imprime la cabecera y la 40, los nombres y ape- 
llidos. 
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13.2. 


¿Qué aparecerá en la pantalla al ejecutar el siguiente programa? 
¿Cada vez que se ejecute aparecerá el mismo contenido en la 
pantalla? 


10 RANDOMIZE 

20 FORI=1T0 10 

30 LETN = INT (10 * RND) 

40 PRINT TAB (N); “BUENOS DIAS”; TAB (25); N 
50 NEXT | 

60 END 


— Aparecerá diez veces la frase “BUENOS DIAS” y el número 
de la columna en que comienza a imprimirse cada vez. 

— Cada vez que se ejecute el programa, la impresión en panta- 
lla variará de posición debido a las instrucciones RANDO- 
MIZE y RND. 


Nota: En los microordenadores MSX hay que sustituir la instruc- 
ción 10 por 10 LET A = RND (TIME), y en la 30, en lugar de 
RND hay que utilizar RND(1). 


Haz un programa que imprima una A en cada una de las 22 
filas, de tal manera que en cada fila la posición de la columna se 
obtenga de forma aleatoria, entre las 32 posibles. 


10 FORI=0T0 21 

20 LET X = INT (RND (1) * 32) 
30 PRINT TAB (X); “A” 

40 NEXT | 

50 END 


En la línea 20 se calcula el valor aleatorio X de la columna, que 
varía de O a 31. 


Nota: En los microordenadores ZX Spectrum hay que sustituir 
RND(1) por RND. 


Haz un programa que dibuje un asterisco en la posición determi- 
nada por la intersección de la fila 11 y columna 16. (Para llegar a 
la fila 11, introducir un bucle.) 


10 FORI=0T0O 10 

20 PRINT 

30 NEXT | 

40 PRINT TAB (16); “+” 
50 END 


— El bucle 10 - 30 imprime once filas en blanco (de la O a la 
10); así se llega a la fila 11. 

— La instrucción 40 imprime un asterisco en la posición deter- 
minada por la intersección de la columna 16. 
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13.5. 


13.6. 


13.8. 


Realiza un programa que llene la columna 12 de asteriscos. 


10 FOR|=0TO 21 

20 PRINT TAB (12); “+” 
30 NEXT | 

40 END 


La línea 20 imprime el asterisco en la columna 12. 


Esta operación la repite en las filas O a 21 por medio del bucle 
10 - 30. 


Haz un programa que imprima A en toda la fila 13. 


10 FORI=0TO 12 
20 PRINT 

30 NEXT | 

40 FORJ=0T0 31 
50 PRINT “A”; 

60 NEXT J 

70 END 


— El bucle 10 - 30 baja el cursor a la fila 13. 
— El bucle 40 - 60 imprime A en toda la fila 13. 


Escribe un programa que dibuje una recta que vaya de (0,0) a 
(21,21): 

Los puntos pertenecientes a la recta se indican con asteriscos 
para que en la pantalla se visualicen mejor. 


10 FORI|=0T0 21 
20 PRINT TAB (1); “+” 
30 NEXT | 

40 END 


Cada vez que se imprime un asterisco se baja una fila y se des- 
plaza una posición a la derecha del cursor (incremento de |). 


Haz un programa que dibuje una recta de (0,31) a (21,10). 


10 FORI|=0TO 21 
20 PRINT TAB (31 — |); “+” 
30 NEXT | 
40 END 

— Las filas varían de O a 21, según aumenta la variable | del 
bucle. 

— Las columnas varían de 31 —- 0 = 31 a 31 — 21 = 10, en 
función de la variación de 31 — 1. 
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13.9. ¿Qué figura geométrica dibuja este programa? 


10 PRINT TAB (16); “*” 

20 FOR!I=1T0 10 

30 PRINT TAB (16 — I); “*”; TAB (16 + l); “+” 
40 NEXT | 

50 FOR|=9T0O 1 STEP —1 

60 PRINT TAB (16 — 1); “+”; TAB (16 + I); “+” 
70 NEXT | 

80 PRINT TAB (16); "*" 

90 END 


— La línea 10 imprime un asterisco en la columna 16. 

— El bucle 20 - 40 imprime dos asteriscos en cada una de las 
filas que van de 1 a 10. Cada par de asteriscos son simétricos 
respecto de la columna 16, y cada vez aumenta su distancia 
en dos posiciones. 

— El bucle 50 - 70 imprime dos asteriscos en cada una de las 
nueve filas siguientes. Cada par de asteriscos son simétricos 
respecto de la columna 16, y cada vez disminuye su distancia 
en dos posiciones. 

— La línea 80 imprime un asterisco en la columna 16. 

— En conclusión, la figura que dibuja es un rombo. 


13.10. Indica qué escribe el siguiente programa, y en qué posición de la 
pantalla. 


5 REM ESCRIBE EN LA PANTALLA 
10 PRINT 
20 PRINTAT 10, 12; “*errxrrxr” 
30 PRINT AT 11, 14; “BASIC” 
40 PRINTAT 12, 12; “x*xrxxrxr" 
50 PRINT 
60 END 
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13.11. 


13.12. 


En los equipos MSX la instrucción PRINT AT se sustituye por LO- 
CATE 


— Escribe la palabra BASIC en la posición determinada por la in- 
tersección de la fila 11 y la columna 14. 

— En las filas superior e inferior (10 y 12) imprime nueve aste- 
riscos a partir de la columna 12. 


12 14 


KKKKKKKkKkk 10 


BASIC 11 


KKAKKKKKAk 12 


Haz un programa que lea un nombre y lo imprima 10 veces; la 
primera vez a partir de la fila 1 y columna 1, la segunda a partir 
de la fila 2 y columna 2, y así sucesivamente. 


10 INPUT A$ 

20 CLS 

30 FORI|=1T0 10 
40 PRINTAT 1, |; AS 
50 NEXT | 

60 END 


— La línea 10 permite introducir el nombre, y la 20 borra la 
pantalla. 

— El bucle 30 - 50 imprime el nombre 10 veces a partir de la 
fila 1 y columna 1, a partir de la fila 2 y columna 2, ..., a par- 
tir de la fila 10 y columna 10. 


Nota: En los microordenadores MSX, sustituir la línea 40 por 40 
LOCATE |, | : PRINT AS. 


Escribe un programa tal que al introducir una frase calcule su 
longitud L y la imprima a partir de la fila L y columna L. 


10 INPUT A$ 

20 5 

30 LETL = LEN (A$) 
40 PRINTATL, L; A$ 
50 END 
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13,13. 


13.14. 


— La línea 10 permite introducir la frase, y la 20 borra la panta- 
lla. 

— La línea 30 calcula la longitud L de la frase y la 40 la imprime 
en la fila L, columna L. 

— La longitud L debe ser inferior al número de filas y al número 
de columnas para que no se produzca error. 


Nota: En los microordenadores MSX, sustituir la línea 40 por 40 
LOCATE L, L : PRINT A$. 


Haz un programa que dibuje una línea recta de asteriscos en la 
fila 3. 


10 FORI=0TO0 31 
20 PRINTAT 3,1; %*" 
30 NEXT | 

40 END 


El bucle 10 - 30 imprime la recta de asteriscos dejando fija la 
fila 3 y variando el número de columna | (instrucción 20). 


Nota: En los microordenadores MSX hay que sustituir la línea 
20 por 20 LOCATE |, 3 : PRINT “+”. 


Haz un programa que dibuje un cuadrado de 21 x 21 (no consi- 
derar las columnas 22 y siguientes). 


10 FORI=0TO 21 

20 PRINTATO, |; **” 
30 NEXT | 

40 FORJ=1T0 20 
50 PRINTATJ, 0; “0” 
60 PRINTAT J, 21; “*” 
70 NEXJ 

80 FORK =0TO 21 
90 PRINTAT 21, K; “*” 
100 NEXT K 
110 END 


— El bucle 10 - 30 imprime el lado superior del cuadrado. 

— El bucle 40 - 70 imprime los lados izquierdo y derecho del 
cuadrado. 

— El bucle 80 - 100 imprime la base del cuadrado. 


Nota: En los microordenadores MSX hay que sustituir las líneas 
20, 50, 60 y 90 por 

20 LOCATE l, 0 : PRINT “*" 

50 LOCATE O, J : PRINT “+” 


60 LOCATE 21, J : PRINT “+" 
90 LOCATE K, 21 : PRINT *"” 
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13.15. Escribe un programa que dibuje las diagonales de un cuadrado 
de 21 x 21. 


Se supone que los puntos (1, 1) y (21, 21) son dos vértices 
opuestos del cuadrado. 


10 FORI=1T0 21 

20 PRINTAT 1,1; %*” 

30 PRINTAT 21 — 1,21 — |; **” 
40 NEXT | 

50 END 


La instrucción 20 imprime los puntos de una diagonal, y la 30 
imprime los de la otra diagonal. 


Nota: En los microordenadores MSX hay que sustituir las líneas 
20 y 30 por 

20 LOCATE l, |: PRINT “*" 

30 LOCATE 21 - 1,21 -—1|: PRINT “+” 


13.16. ¿Qué hace el siguiente programa? 


10 FORI=0TO 21 

20 PRINTATI, 0; “*" 
30 PRINTAT 1, 31; “*” 
40 NEXT! 

50 FORJ=0T0 31 
60 PRINTATO, J; “+” 
70 PRINTAT 21, J; “+” 
80 NEXT J 

90 END 


El bucle 10 - 40 llena de asteriscos las columnas 0 y 31. 


El bucle 50 - 80 llena de asteriscos las filas O y 21. 


En conclusión, este programa dibuja un rectángulo de vértices 
(0,0), (0,31), (21,0) y (21,31). 


Nota: En los microordenadores MSX hay que sustituir las líneas 
20, 30, 60 y 70 por 


20 LOCATE O, | : PRINT “+” 
30 LOCATE 31, | : PRINT “+” 
60 LOCATE J, 0 : PRINT “+” 
70 LOCATE J, 21 : PRINT “+” 
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a PROGRAMAS RESUELTOS cas 


13,1, 


13.2. 


13,3, 


13.4, 


¿Qué instrucciones son erróneas? ¿Por qué? 


) 100 PRINT TAB (23); “HOLA” 

) 200 PRINT TAB (10); 1; TAB (25); “N” 
) 300 PRINT N; TAB (13); “ADIOS” 

) 400 PRINT TAB (7); 5 : TAB (9); A$ 


a) La instrucción 100 es errónea porque TAB (23) y “HOLA” están se- 
parados por un punto y coma. Deben estar separados por una coma. 

b) La instrucción 200 es correcta. 

c) La instrucción 300 es correcta. 

d) En la línea 400 hay un error (falta la palabra PRINT después de los 
dos puntos). 


Utiliza la instrucción PRINT TAB para resolver lo indicado en los apar- 
tados siguientes: 


a) Imprimir la palabra MENÚ a partir de la columna 10. 
b) Imprimir el número 3.1416 y el texto NUMERO Pl a partir de las co- 
lumnas 5 y 15, respectivamente. 


a) 10 PRINT TAB (10); “MENU” 
b) 10 PRINT TAB (5); 3.1416; TAB (15); “NUMERO PI” 


Identifica los errores contenidos en el siguiente programa: 


10 INPUT A$ 

20 LETL = LEN (AS) 

30 PRINTATL, L, A$ 

40 IFL= 1 THEN GOTO 10 
50 PRINTAT L; “FIN” 

60 END 


— En la instrucción 30, entre L y A$, tiene que haber un punto y coma 


en lugar de una coma. 
— En la instrucción 50 falta una coordenada. 


Haz un programa que vaya admitiendo números y tabule la pantalla para 
que en la columna 10 aparezcan los números que se van introduciendo y 
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en la columna 20 el número más pequeño introducido hasta este mo- 


mento. 


10 
20 
30 
40 
50 
60 
70 
80 


13.5. Elabora 


PRINT TAB (10); “ULTIMO”; TAB (20); “MAS PEQUEÑO” 
INPUT X 

LETP =X 

PRINT TAB (10); X; TAB (20); P 

INPUT X 

IF X <P THEN LETP = X 

GOTO 40 

END 


un programa que imprima a partir de la columna 5 el nombre de 


una persona; a partir de la 20, su edad y a partir de la 25, su peso. Par- 
ticularizar el programa que lea los nombres, edades y pesos de seis per- 
sonas mediante READ y DATA. 


10 


20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 


PRINT TAB (5); “NOMBRE”; TAB (20); “EDAD”; TAB (25); 
"PESO" 

FOR | = 170 6 

READ N$, E, P 

PRINT TAB (5); N$; TAB (20); E; TAB (25); P 
NEXT | 

DATA “MARIA”, 15, 43 

DATA “JUAN”, 16, 55 

DATA “ERNESTO”, 13, 37 

DATA “ISABEL”, 16, 47 

DATA “ELENA”, 15, 39 

DATA “MIGUEL”, 14, 61 

END 


13.6. Escribe un programa que lea un texto y lo imprima en diagonal; es decir, 
el primer carácter en la fila O, columna 0; el segundo carácter en la fila 
1, columna 1, y así sucesivamente. 


10 
20 
30 
40 
50 
60 
70 
80 


Nota: 
60 por 


60 


INPUT T$ 
LET L = LEN (T$) 
IF. L> 21 THEN PRINT “DEMASIADO LARGO” : GOTO 10 


CLS 

FOR | = 1 TO L 

LOCATE | — 1,1 — 1: PRINT MIDS (TS, l, 1) 
NEXT | 

END 


En los microordenadores ZX Spectrum, sustituir la línea 
PRINTAT!-— 1,L-— 1; T$(1TO |). 
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13.7. Haz un programa que dibuje la letra | con asteriscos, a partir de la co- 
lumna 6, con una altura de diez puntos y con una anchura de tres. 


10 CLS 

20 FORI|=1T0 10 

30 PRINT TAB (6); “**x*"” 
40 NEXT I 

50 END 


13.8. Haz un programa que dibuje la letra A con las mismas condiciones que 
en el programa anterior. 


10 CLS 
20 PRINT TAB (6); "**x*" 
30 FOR|=1T03 
40 PRINT TAB (6); "* +” 
50 NEXT | 
60 PRINT TAB (6); “*x**" 
70 FORI=1TO5 
80 PRINT TAB (6); “*LJ*" 
90 NEXT | 
100 END 


13.9. Por medio de la instrucción PRINT TAB, haz un programa que dibuje una 
V que ocupe toda la pantalla, imprimiendo uves. 


10 CLS 

20 FORI|=0T0 15 

30 PRINT TAB (1); “V”; TAB (31 — 1); “V” 
40 NEXT | 

50 END 
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13.10. Diseña un programa que rellene la parte inferior de la uve de la pantalla 
del ejercicio anterior con uves. 


10 CLS 

20 LETAS =“V” 

30 FORI=0T0 15 

40 PRINT A$: TAB (31 — 1); A$ 
50 LETAS=A5$+“V" 

60 NEXT | 

70 END 


13.11. Realiza un programa que dibuje una M que ocupe toda la pantalla. 


10 CLS 

20 FORI=1T0 15 

30 PRINT “M”; TAB (1); “M”; TAB (31 — 1); “M”; TAB (31); “M” 
40 NEXT | 

50 FORI= 16T0 21 

60 PRINT “M”; TAB (31); “M” 

70 NEXT | 

80 END 
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13.12. El siguiente programa dibuja la función seno en una pantalla con baja re- 
solución. 


10 FORI|=0T0 31 


20 PRINTAT 10 — INT (10 * SIN (1 * Pl / 15), 1; “*" 
30 NEXT | 


Modifica este programa para que dibuje el coseno. 
Basta con sustituir la función seno por la función coseno. 
10 FORI=0T0 31 


20 PRINT AT 10 — INT (10 * COS (I * PI / 15), 1; “+” 
30 NEXT | 


Nota: En los microordenadores MSX, los programas anteriores deben ser 
sustituidos por los siguientes: 


1 REM SENO 
10 CLS 
20 FOR!|=0T0 31 
30 LOCATE I, 10 — INT (10 + SIN (I * 3.1416/15)), PRINT “+” 
40 NEXT | 
50 LOCATE O, 21 
60 END 
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1 
10 
20 
30 
40 
50 
60 


REM COSENO 
CLs 

FOR | = 070 31 

LOCATE I, 10 — INT (10 + COS (1 + 3.1416/15)) : PRINT "+" 
NEXT | 

LOCATE 0, 21 

END 


13.13. Haz un programa que dibuje la función F(X) = X* utilizando la instruc- 
ción PRINT AT. 


10 
20 
30 


FOR | = -4T04 
PRINTAT 21 — 1x1, 1541; %” 
NEXT | 


13.14, 


Nota: En los microordenadores MSX, el programa debe ser escrito como 


sigue: 
10 
20 
30 
40 
50 
60 


CLS 

FOR | = 4 T0 4 

LOCATE 15+1,.21=1 T Z:PRINT"*" 
NEXT | 

LOCATE O, 21 

END 


Diseña un programa que por medio de la instrucción PRINT AT dibuje la 
función FX) = e*. 


10 
20 
30 


FOR | = 070 3 
PRINT AT 21 — EXP (1), 1; “+” 
NEXT | 
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Nota: En los microordenadores MSX, el programa anterior debe escri- 


birse así: 


10 
20 
30 
40 
50 
60 


CLS 
FOR | =0T0 3 
LOCATE | + ly 21 al EXP (1) ha PRINT Mn 


NEXT | 
LOCATE 0, 21 
END 


1 A La memoria del microordenador 


Memorias RAM y ROM 


La memoria de un microordenador puede considerarse dividida en dos partes: 

— Una parte contiene la memoria ROM (READ ONLY MEMORY) o memoria de 
sólo lectura. En esta parte se almacena información que no se modifica en el 
proceso de ejecución de un programa. 

— La otra parte contiene la memoria RAM (RANDOM ACCESS MEMORY) o me- 
moria de acceso aleatorio. En esta memoria se puede leer y almacenar in- 
formación, y ésta desaparece cuando se enchufa el microordenador. En la me- 
moria RAM se almacenan el programa BASIC y los datos que se introducen 
con INPUT o con READ - DATA. 

Ambos tipos de memoria pueden imaginarse como una larga lista de casillas nu- 

meradas. Cada una de las casillas se llama posición de memoria. 


Posición de ] 7] 


sjojajojejeja 


A su vez, cada posición de memoria puede considerarse como un conjunto de 
ocho interruptores colocados en fila, pudiendo estar cada uno abierto o cerrado. 


Interruptor p 
l 0 0 l 


o -———A 


l l l 
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Un interruptor cerrado representa un 1, y un interruptor abierto, un 0, 


Cada cero o uno se llama bit (dígito binario) y la sucesión de los 8 bits se llama 
byte (1 byte comprende 8 bits). 


Toda la información que se maneja en el microordenador debe estar formada por 
unos y ceros; es decir, debe estar en el sistema binario. 


Así, para representar las letras, los dígitos, los signos de puntuación y los símbolos 
de las operaciones aritméticas debe utilizarse una secuencia de ocho ceros y 
unos. 


En la mayoría de los microordenadores se ha seguido un mismo convenio para 
asignar en su memoria un número binario a cada carácter. Este convenio consti- 
tuye el llamado código ASCII (American Standar Code for Information Inter- 
change). Este código se transcribe en el Apéndice A, en el cual, cada número bi- 
nario ha sido sustituido por su equivalente número en base decimal. 


RESUMEN DE LAS INSTRUCCIONES 


PEEK 


Esta instrucción extrae el contenido de una posición determinada de 
memoria. 


y 


Ejemplo 
La instrucción 
10 PRINT PEEK 50323 


se imprime en la pantalla un número decimal comprendido entre O y 255, que es 
el contenido de la posición de memoria cuya dirección viene dada por el número 
50323. 


El contenido de una posición de memoria puede estar comprendido entre los nú- 
meros decimales 0 y 255, que corresponden a los binarios 00000000 y 
AAA, 


POKE 


Esta instrucción almacena en una posición determinada de memoria 
un número comprendido entre 0 y 255. 
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Ejemplo 
La Instrucción 
10 POKE 50323, 65 
almacena en la posición de memoria 50323 un conjunto de ceros y unos, corres- 
pondientes al número decimal 65. 
Observaciones 
Esta instrucción sólo actúa sobre la memoria RAM. 


Se debe tener cuidado al elegir las posiciones de memoria sobre las que se actúa, 
ya que puede perturbarse el funcionamiento del microordenador. Para evitar pro- 
blemas, debe consultarse el manual de instrucciones del microordenador corres- 
pondiente. 


ASC (O CODE) 
Esta instrucción da el código numérico correspondiente a un carácter. 


y 


Ejemplo 
El programa 


10 LET AS = “ANIBAL” 
20 PRINT ASC (A$) 


imprime en la pantalla el número 65, código ASCI! del primer carácter de la ca- 
dena A$, que es la letra A (mayúscula). 


CHR$ 


Esta instrucción da el símbolo correspondiente a un número en el có- 
digo ASCII. 


y 


Ejemplo 
La instrucción 
10 PRINT CHR$ (65) 
imprime en la pantalla la letra A correspondiente al número 65 del código ASCI!. 


176 


PROGRAMAS RESUELTOS EXPLICADOS 


14.1. 


14.2. 


14.3. 


Indica el valor del byte correspondiente a una posición de me- 
moria cuyos interruptores se encuentran en el estado indicado 
en la figura. 


[11d | 


Cada interruptor abierto equivale a un cero, y cada interruptor 
cerrado, a un uno. Luego el número binario incluido en esa posi- 
ción de memoria es 


01101110. 


Representa en un esquema similar al anterior el valor del byte re- 
presentado por esta secuencia binaria: 10001001. 


Siguiendo el criterio de que un interruptor abierto es O y uno ce- 
rrado es 1, el conjunto de ocho interruptores debe estar dis- 
puesto como se indica en este esquema. 


Sn 


Ayudándote de un esquema con circuitos como el que venimos 
utilizando, representa mediante una secuencia de ocho bits el 
número 34. 


En un byte, los bits pueden numerarse del O al 7, de derecha a 
izquierda. Cada uno de ellos si es 1, representa un valor doble 
del que corresponde al que se encuentra inmediatamente a su 
derecha. 


17 


14.4. 


14.5. 


Así, el bit O representa el valor 1; el bit 1, el valor 2; el bit 2, el 
valor 4; el bit 3, el valor 8; el bit 4, el valor 16; el bit 5, el valor 
32; el bit 6, el valor 64; y el bit 7, el valor 128. 


Así, para representar 34 deben estar cerrados el segundo y el 
quinto bit; luego el número binario es 00100010. 


128 64 32 16 8 4 2 l 


Escribe una secuencia binaria cuyo valor corresponda a 254. En 
esta secuencia, ¿qué bits es cero, el último de la derecha o el úl- 
timo de la izquierda? 


254 = 128 + 64 + 32 + 16+8+4+2+0=1-:2'+ 
+ 20412 Y 
+20 

128 64? 


1) 


Así, la secuencia binaria correspondiente a 254 es 11111110. 


Halla la representación en base decimal de los siguientes bytes: 


00000001 
00000010 
00000011 
00000100 
00000101 


0-27.+0:22+0:2+0:24+0:240-22+0-21 4 
+1:22=7 
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14.6. 


14.7. 


Luego, el número 1 en binario es 00000001. 


De la misma manera se obtienen las representaciones binarias de 
los otros números escritos en base decimal. 


El número 2 en binario es 00000010. 

2=0-2+0-2P+0-240- 2 40- PRA 12€ 
+0:22 

El número 3 en binario es 00000011. 

=0:2+0:28+0:2+0-21+0:-2+0-:2? + 

+1:214+1-22 

El número 8 en binario es 00001000. 

E=0-P+-0: 2 40:40:44 1070: 74 
+0-21+0-2% 

Finalmente, el número 9 en binario es 00001001. 

9=0:2+0:22+0:25+0:-21+1-22+0-22+0-2' 
+ 1920 


Encuentra todas las secuencias binarias comprendidas entre 
11111001 y 11111111. 


Las dos únicas posibilidades se obtienen en colocar un cero y un 
uno, alternándolos, en las posiciones 2 y 3: 

11111011 

que corresponde a 247 


y 
11111101 
que corresponde a 254. 


Haz un programa que imprima las representaciones en base de- 
cimal de los números binarios 11110001, 01101101, 01010101, 
10101010, 01111110 y 10000001. 


1 REM PASO DE BINARIO A DECIMAL 
5 FORJ=1T06 
7 LETN=0:LETP=0 
10 READ A$()) 
20 FOR | = LEN (A$) TO 1 STEP -1 
30 LET B$ = MID$ (AS, LEN(AS) — P, 1) 
40 LETN=N + VAL (B$) + 2 ) P 
50 LETP=P+1 
60 NEXT | 
70 PRINT A$; ” EN BASE DECIMAL SE EXPRESA ASI: ”; N 
80 NEXT J 
90 END 
100 DATA 11110001, 01101101, 01010101, 10101010, 
01111110, 10000001. 
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14.8. 


14.9. 


— Para cada valor de J se lee uno de los seis números binarios. 
— La instrucción 30 extrae cada uno de estos dígitos binarios y 
los almacena temporalmente en la variable de cadena B$. 

— La instrucción 40 pasa a valor numérico lo que almacena en 
B$, multiplica por la correspondiente potencia de 2 y alma- 
cena el resultado en N. Esto lo hace para cada dígito binario, 
y el concluirse la ejecución del bucle 20 - 60, N almacena el 
número en base decimal. 


Nota: En el microordenador ZX Spectrum debe sustituirse la ins- 
trucción 30 por 


30 LETB$= AS (LEN(A$) — PTO LEN(A$) — P) 
Halla la representación en binario de los números naturales O, 1, 


... 


Teniendo en cuenta los valores relativos de cada bit, se obtiene 
lo siguiente: 


128 


m 
NS 
99) 
N 
[e] 
00 
N 


oo 


w 0 Y dd UA UN — O 
spfojofejofefoeje 
00000 o0o00o0Oo0Oo 
90:00:00 '0.0O0O0C0O0 
0000000000 
===00000000 
00>====0000 SS 
O0o0>==00= == 00 
=200=0= 0-0 


Halla la representación en binario del número 248. 


Se divide sucesivamente por 2 y escribimos de izquierda a dere- 
cha el último cociente seguido de los sucesivos restos. 


248 |2 


0 11 15/2 
EA 
osa 


Se obtiene 11111000 que corresponde al 248. 
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14.10. 


14.11. 


Construir un programa que imprima en la pantalla la representa- 
ción en binario de los números 245 a 255. 


5 REMPASO DE DECIMAL A BINARIO 

10 FORJ= 1T0 11 

15 LETB$="" 

20 READN 

30 LET | = INT (N/2) 

40 LETB=N-2*I 

50 IF B = 0 THEN LET B$ = 0 + B$ : GOTO 70 

60 LETB$= "1" + B$ 

70 LETN=1 

80 IFN = 0 THEN GOTO 100 

90 GOTO 30 

100 PRINT “EL NUMERO”; N; “EN BINARIO ES:”; B$ 
105 NEXT) 
110 END 
200 DATA 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 

255 


— Para cada valor de J se lee un número en base decimal; pre- 
viamente, en la variable B$ se almacena un espacio en 
blanco. 

— Las instrucciones 30 y 40 calculan los restos sucesivos de la 
división de N por 2. Por ejemplo, si N = 245, en la primera 
división se obtiene el siguiente resto: 

30 LET | = INT (245/2) = INT (122.5) = 122 
40 LETB = 245 — 2 + 122 = 245 — 244 =1 

— La instrucción 50 añade por la izquierda un O a la cadena al- 
macenada en B$, si se cumple la condición B = O, y la 60 
añade un 1 en caso de no cumplirse B = O. 

— La instrucción 70 guarda en N el siguiente cociente parcial 
(en el ejemplo es 122) con el cual se realizará otra división 
por 2, y así hasta que N sea igual a O, condición que com- 
prueba la instrucción 80. En el caso de que la condición se 
cumpla, se transfiere el control a la instrucción 100, que im- 
prime el número en binario. 


Explica lo que hace el siguiente programa: 


10 FORI=0TO9 
20 POKE 34230 + 1, | 
30 NEXT | 

40 END 


Almacena en las posiciones de memoria 34230, 34231, ..., 
34239, los equivalentes números en binario de los números es- 
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14.12. 


14.13. 


14.14. 


critos en base decimal, que van del O al 9. Estos valores los va 
tomando la variable | del bucle. 


Haz un programa que almacene en posiciones de la memoria de 
dirección consecutiva las letras mayúsculas A, B, C, D, E y F. 


10 FORI=0T0 5 

20 POKE 50000 + 1, 65 + | 
30 NEXT | 

40 END 


Este programa almacena en la posición de memoria 50000 y las 
cinco siguientes, los códigos ASCII de las letras A (65 + 0), B 
(65 + 1), C (65 + 2), D(65 + 3), E (65 + 4) y F(65 + 5). 


(Antes de introducir valores en una posición de memoria me- 
diante la instrucción POKE, debe consultarse el manual de ins- 
trucciones en el que vendrá incluido un mapa de la memoria del 
microordenador.) 


Indica qué imprimiría en la pantalla el siguiente programa: 


10 FORI|=1T0 5 

20 READN 

30 LETP = PEEK (N) 

40 PRINTP 

50 NEXT | 

60 DATA 42627, 43700, 43701, 43702, 44800 
70 END 


Imprime el contenido de las posiciones de memoria 42627, 
43700, 43701, 43702 y 44800. (Los números contenidos en 
estas posiciones los escribe en base decimal.) Los números obte- 
nidos deben estar comprendidos entre O y 255. 


Escribe un programa que imprima en la pantalla los números del 
códigos ASCII correspondientes a las letras A, a, B, b, c y C. 


10 FOR|=1T0 6 

20 READ A$ 

30 PRINT ASC (A$) 

40 NEXT! 

50 END 

100 DATAA, a, B, b, c, €. 
El programa lee cada una de las letras contenidas en la instruc- 
ción 100 DATA, las almacena en A$ e imprime en la pantalla su 
código ASCII. 


(En el ZX Spectrum debe modificarse la instrucción 30 por 30 
CODE A$.) 
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14.15. Fijándote en los valores obtenidos en el ejercicio anterior, ordena 
de anterior a posterior (<) las palabras siguientes: Bernardo, 
azucena, Antonio, abeto, canica, Claudio. 


Antonio < Bernardo < Claudio < abeto < azucena < canica. 


Las letras mayúsculas y minúsculas poseen un orden alfabético. 
(Pero como las mayúsculas tienen códigos ASCII menores, las pa- 
labras cuyas iniciales son mayúsculas aparecen antes que las pa- 
labras cuyas iniciales son letras minúsculas.) 


14.16. Haz un programa que imprima en la pantalla los caracteres 
cuyos números ASCII son 56, 57, 58, 59 y 60. 


10 FOR |= 56 TO 60 
20 PRINT CHR$ (1) 
30 NEXT | 

40 END 


La variable | toma los valores de los códigos ASCII, que van del 
56 al 60, y en la instrucción 20 imprime el carácter correspon- 
diente. 


os PROGRAMAS RESUELTOS secs 


14.1. Escribe lo que imprimiría el siguiente programa al ser ejecutado: 


5 LETP=0:LETN=0 
10 READ A$ 
20 FOR = LEN (A$) TO 1 STEP -1 
30 LETB$ = MID$ (AS, LEN (AS) — P, 1) 
40 LETN=N + BAL(B$) + 2 7 P 


50 LETP=P+1 

60 NEXT | 

70 PRINT A$; ” EQUIVALE A ”; N 
80 GOTO 5 


90 DATA ”10101010”, “01010101”, “11111000”, “00011111” 


Escribe los equivalentes números escritos en base decimal de los números bina- 
rios incluidos en la instrucción DATA. 
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Así, en la pantalla aparecen estos resultados 


Se emite, además, un mensaje de error al acabarse los datos. 


14.2. El siguiente programa pasa a sistema binario, números expresados en 
base decimal. Explica, instrucción a instrucción, su funcionamiento. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
135 
140 
150 


— Para 


READ N 

FOR |=1TON 

LETB$=" " 

READ A 

LET K = INT (4/2) 
LETB=A-2*K 

IF B = O THEN LET B$ = “0” + B$ : GOTO 90 
LETB$ = "1" + B$ 

LETA = K 

IF A = O THEN GOTO 120 
GOTO 50 

PRINT A; “EN BINARIO ES:”; B$ 
NEXT | 

DATA 5 

DATA 25, 125, 50, 200, 10 

END 


cada valor de | se lee un número escrito en base decimal (hay 


cinco, de ahí que el número de lecturas debe coincidir con este valor 
de N). Previamente, en la variable B$ se almacena un espacio en 
blanco. 

— Las instrucciones 50 y 60 calculan los restos sucesivos de la división 
de N por 2. 

— La instrucción 70 añade por la izquierda un O a la cadena almace- 
nada en B$, si se cumple la condición B = 0, y la 80 añade un 1 en 
caso de no cumplirse B = 0. 
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14.3. 


14.4, 


14.5. 


14.6. 


14.7, 


14.8. 


— La instrucción 70 guarda en A el siguiente cociente parcial, con el 
cual se realizará otra división por 2, y así hasta que A sea igual a 0, 
condición que comprueba la instrucción 120 que imprime el número 
en binario. 


Explica qué hace la siguiente instrucción: 
17 POKE 25328, 29 


Coloca en la posición de memoria 25328 el equivalente en binario al nú- 
mero 29. 


Introduce en la memoria los diez primeros números naturales impares en 
posiciones de memoria, tal que sus direcciones sean consecutivas, empe- 
zando por la de dirección 45000. 


10 FORI=0T0O9 

20 POKE 45000 + 1,2 *1+ 1 
30 NEXT | 

40 END 


Explica qué se obtiene en la pantalla si se escribe la siguiente expresión: 
PRINT PEEK (45005) 
Imprime el contenido de la posición de memoria 45005. 


Haz un programa que verifique si en las posiciones de memoria indicadas 
en el ejercicio 4 se encuentran almacenados los diez primeros números 
naturales impares. 


10 FORI=0TO9 
20 PRINT PEEK (45000 + 1) 
30 NEXT | 


Explica la función que cumple la instrucción ASC (o CODE). 
Permite obtener el código ASCII del primer carácter de una cadena. 


Indica qué se obtiene en la pantalla al ejecutar el siguiente programa: 


10 READ C$ 

20 LETA = ASC (C$) 

30 PRINTA 

40 GOTO 10 

50 DATA” * <=", >" 
60 END 
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32 
60 
61 
62 


14.9. 


14.10. 


Se obtienen estos resultados: 


que son los códigos ASCII del espacio y los signos <, = y >. 
(Al acabarse los datos aparecerá un mensaje de error.) 


Escribe un programa que halle el número del código ASCII correspon- 
diente a las letras | y L, y según el resultado obtenido después de ejecu- 
tar el programa, indica qué símbolo pondrías entre las siguientes pala- 
bras: 


Luis ... laberinto 


10 PRINT ASC (“Luis”) 
20 PRINT ASC (“laberinto”) 


Luis < laberinto 


Indica qué se obtiene en la pantalla cuando se ejecuta el siguiente pro- 
grama. (Consulta el código ASCII en el apartado 7 de este capítulo.) 


10 READ N 

20 PRINT “EL CARACTER ASCIl QUE CORRESPONDE AL 
NUMERO”; N; “ES”; CHR$ (N) 

30 DATA 100 

40 END 


Se obtiene este resultado: 
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14.11, 


El carácter que corresponde al número 100 es 5. 


Realiza un programa que haga aparecer en la pantalla los caracteres del 
código ASCII correspondientes a los números 33 a 125, dispuestos en la 
siguiente forma: 


NUMERO CARACTER 
33 


10 PRINT “NUMERO”, “CARACTER” 
20 FOR|= 32 T0 125 

30 PRINT |, CHRS$ (1) 

40 NEXT | 
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Apéndice 


Palabras BASIC 


Función que realiza 


ABS (X) Da el valor absoluto del número X. 


ASC (X$) Da el número de código ASCII correspondiente al primer 


carácter de la cadena X$. 


Sitúa el cursor en la posición correspondiente a la fila F y 
a la columna C. 


Calcula el arco cuya tangente es X. (El arco calculado se 
expresa en radianes.) 


CHR$ (X) Da el carácter del código ASCII correspondiente al nú- 


mero X. (X es un entero comprendido entre 32 y 128.) 


CLS Borra lo escrito en la pantalla, pero no lo almacenado en 
la memoria del microordenador. 


C LOAD "XXX" Carga en la memoria del microordenador un programa | 216 


(o LOAD “XXX”) | grabado en una casete con el nombre XXX 


CONT Continúa la ejecución de un programa interrumpido por 62 
la instrucción STOP. 

CODE (X$) Da el número del código ASCII correspondiente al primer | 210 
carácter de la cadena X$. 

COS (X) Calcula el coseno del ángulo X, expresado en radianes. 155 

C SAVE "XXX" Graba en una casete con el nombre XXX un programa | 216 


(o SAVE “XXX”) almacenado en la memoria del microordenador. 


Almacena los datos que serán leídos por una instrucción 
READ. 


DEF FNA (X) 


Define una función numérica de nombre FNA y de varia- 
ble X. (Para definir otras funciones cambiar la letra A por 
otras del abecedario.) 


DIM L(N) Dimensiona una variable de un índice. 
DIM T (N,M) Dimensiona una variable de dos índices. 


Da por finalizado un programa. 


188 


Hace que el dato o instrucción tecleados se almacene en 
la memoria. 


FOR V=¡TOt 
STEP s 


Calcula la potencia e*, siendo e = 2.71828 


Da el valor de la función de nombre FNA previamente 
definida, para el valor X. 


Ejecuta un conjunto de instrucciones, llamado bucle, que 
empieza con la instrucción FOR y termina con una ins- 
trucción NEXT. 

(Variable: V; valor inicial de V, i; tope, t; incremento, s.) 


GOSUB n Transfiere el control de la ejecución de una subrutina 164 


que empieza en una instrucción numerada con n. 


o n 


IF (condición) 
THEN 
(instrucciones) 


INPUT A 
INPUT A$ 


Transfiere el control de la ejecución a la instrucción del 
programa numerado con n. Esta instrucción puede ser 
anterior o posterior a n. 


Si se cumple la condición entonces se ejecutan las ins- 
trucciones que siguen a THEN; y si no se cumple se eje- 
cuta la instrucción escrita en la línea siguiente. 


Permite introducir datos numéricos o alfanuméricos, los 
cuales se asignan a la variable A o A$, respectivamente. 


Calcula la parte entera del número X. 


LEFT $ (A$,N) 


LEN (A$) 


Extrae los N primeros caracteres de la cadena almace- 
nada en A$. 


Da el número de caracteres de la cadena almacenada 
en Af. 


LET variable = Calcula el valor de la expresión y lo asigna a la variable. 
= expresión 

LIST Hace aparecer en la pantalla: 

LIST n — Todo el listado del programa almacenado en la me- 
LIST n;-n, moria. 

LIST n — — La instrucción n. 


— Las instrucciones comprendidas entre n; y n,, ambas 
inclusive. 

— Las instrucciones comprendidas entre n y la última, 

| ambas inclusive. 
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78 


48 


LN (X) Calcula el logaritmo natural o neperiano de X 


LOCATE C, F Sitúa el cursor en la posición correspondiente a la co- 
lumna C y a la fila F. 
LOG (X) Calcula el logaritmo decimal de X. 


es 
e [a] 
desde la posición P, siguiendo hacia la derecha. 
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NEXT V Transfiere la ejecución del programa a la instrucción FOR 
del bucle siempre que el valor de V sea menor o igual 
que el tope del bucle. 


ON V GOSUB Transfiere el control de la ejecución a las subrutinas que 169 
Mm. se inician con las instrucciones ny, N», ..., Mz según V 
valga 1, 2, ..., K. 


ON V GOTO n; Transfiere el control de la ejecución a las instrucciones 169 
Mk M1, M2, ..., MN; del programa según V valga 1, 2, ..., k, res- 
pectivamente. 


PAUSE N Detiene la ejecución del programa y retiene la imagen un 


tiempo que depende de N. 


PEEK (X) Da el contenido de la posición de la memoria de direc- 


ción X. 


POKE N, V Almacena el valor de V en la posición de la memoria de 


dirección N (V es un entero comprendido entre 0 y 255). 


Escribe o imprime el valor de la variable, el resultado de 
operaciones aritméticas y texto entrecomillado. 


RANDOMIZE y 
RND 


Da un número aleatorio entre 0 y 1. 


READ A, B, ..., X | Asigna a las variables A, B, ..., X los datos almacenados 69 


en una instrucción DATA, en forma secuencial. 


Permite añadir aclaraciones o comentarios en un pro- 
grama sin afectar su ejecución. 
d 
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RESTORE 


RETURN 


RETURN 


RIGHTS (A$,N) 


SGN (X) 


SIN (X) Calcula el seno del ángulo X, expresado en radianes. 
SQR (X) Calcula la raíz cuadrada de X. 


STOP 


STR$(N) 


TAB (N) 
TAN (X) 


VAL (N$) 


WAIT (N) 


Permite volver a leer desde el principio de los datos con- 
tenidos en las instrucciones DATA. 


Hace que el dato o instrucción tecleado se almacene en 
la memoria. 


Última instrucción de una subrutina, cuya función es 
transferir el control de la ejecución siguiente a la GOSUB 
del programa principal. 


Extrae los N últimos caracteres de la cadena almacenada 
en Af. 


Calcula un número aletorio entre O y 1 (A es un argu- 
mento, al que habitualmente se asigna el valor 1.) 


Inicia la ejecución del programa. (“Correr el programa”) 


Calcula el signo de X (+1, si X > 0; 0, siX= 0; —1, si 
X<0). 


Detiene la ejecución del programa justo en la línea en 
que se encuentra STOP. 


Convierte el número almacenado en N en una cadena 
numérica. 


Mueve la posición del cursor a la columna N. 


Calcula la tangente de X, expresado en radianes. 


Convierte la cadena numérica almacenada en N$ en su 
valor numérico. 


Detiene la ejecución del programa y retiene la imagen de 
la pantalla un tiempo, que depende de N. 


191 


149 


155 
155 
61 


98 


179 
155 


TO A$ (N TO M): extrae una subcadena de A$ desde la po- 102 


sición N a la M. 
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